home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / QuickTime™ 1.5 interfaces / QuickTimeComponents.lisp < prev   
Encoding:
Text File  |  1994-09-12  |  102.0 KB  |  2,120 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)
  3. ; 
  4. ; Created: Tuesday, October 13, 1992
  5. ;  QuickTimeComponents.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ;  Copyright Apple Computer, Inc. 1991, 1992
  9. ;  All rights reserved
  10. ; 
  11. ; 
  12. ; 
  13.  
  14. ; $IFC UNDEFINED UsingIncludes
  15. ; $SETC UsingIncludes := 0
  16. ; $ENDC
  17.  
  18. ; $IFC NOT UsingIncludes
  19.  
  20. ; $ENDC
  21.  
  22. ; $IFC UNDEFINED UsingQuickTimeComponents
  23. ; $SETC UsingQuickTimeComponents := 1
  24.  
  25. ; $I+
  26. ; $SETC QuickTimeComponentsIncludes := UsingIncludes
  27. ; $SETC UsingIncludes := 1
  28. ; $IFC UNDEFINED UsingComponents
  29.  
  30. (require-interface 'COMPONENTS) ; $I $$Shell(PInterfaces)Components.p
  31. ; $ENDC
  32. ; $IFC UNDEFINED UsingImageCompression
  33.  
  34. (require-interface 'IMAGECOMPRESSION); $I $$Shell(PInterfaces)ImageCompression.p
  35. ; $ENDC
  36. ; $IFC UNDEFINED UsingMovies
  37.  
  38. (require-interface 'MOVIES)     ; $I $$Shell(PInterfaces)Movies.p
  39. ; $ENDC
  40. ; $IFC UNDEFINED UsingQuickDraw
  41.  
  42. (require-interface 'QUICKDRAW)  ; $I $$Shell(PInterfaces)QuickDraw.p
  43. ; $ENDC
  44. ; $IFC UNDEFINED UsingMenus
  45.  
  46. (require-interface 'MENUS)      ; $I $$Shell(PInterfaces)Menus.p
  47. ; $ENDC
  48. ; $IFC UNDEFINED UsingVideo
  49.  
  50. (require-interface 'VIDEO)      ; $I $$Shell(PInterfaces)Video.p
  51. ; $ENDC
  52. ; $SETC UsingIncludes := QuickTimeComponentsIncludes
  53.  
  54. ; ****
  55. ; 
  56. ;  Clock Component
  57. ; 
  58. ; ****
  59. (defconstant $clockComponentType :|clok|)
  60. (defconstant $systemTickClock :|tick|);  subtype: 60ths since boot 
  61. (defconstant $systemSecondClock :|seco|);  subtype: 1000000ths since boot 
  62. (defconstant $systemMillisecondClock :|mill|);  subtype: 1000ths since boot    
  63. (defconstant $systemMicrosecondClock :|micr|);  subtype: 1000000ths since boot 
  64.  
  65. (defconstant $kClockRateIsLinear 1)
  66. (defconstant $kClockImplementsCallBacks 2)
  67.  
  68. (defconstant $kClockGetClockTimeSelect #X1)
  69. (defconstant $kClockNewCallBackSelect #X2)
  70. (defconstant $kClockDisposeCallBackSelect #X3)
  71. (defconstant $kClockCallMeWhenSelect #X4)
  72. (defconstant $kClockCancelCallBackSelect #X5)
  73. (defconstant $kClockRateChangedSelect #X6)
  74. (defconstant $kClockTimeChangedSelect #X7)
  75. (defconstant $kClockSetTimeBaseSelect #X8)
  76. (defconstant $kClockStartStopChangedSelect #X9)
  77. (defconstant $kClockGetRateSelect #XA)
  78.  
  79. ;  Same Calls 
  80.  
  81. (deftrap _CLOCKGETTIME ((ACLOCK (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (OUT (:POINTER :TIMERECORD)))
  82.    (:STACK :SIGNED-LONG)
  83.    (:STACK-TRAP #xA82A :D0 0 ACLOCK OUT ((+ (ASH 4 16) 1) :SIGNED-LONGINT)))
  84.  
  85. (deftrap _GETCLOCKTIME ((ACLOCK (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (OUT (:POINTER :TIMERECORD)))
  86.    (:STACK :SIGNED-LONG)
  87.    (:STACK-TRAP #xA82A :D0 0 ACLOCK OUT ((+ (ASH 4 16) 1) :SIGNED-LONGINT)))
  88.  
  89.  
  90. (deftrap _CLOCKNEWCALLBACK ((ACLOCK (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TB (:POINTER :TIMEBASERECORD)) (CALLBACKTYPE :SIGNED-INTEGER))
  91.    (:STACK (:POINTER :CALLBACKRECORD))
  92.    (:STACK-TRAP #xA82A :D0 0 ACLOCK TB CALLBACKTYPE ((+ (ASH 6 16) 2) :SIGNED-LONGINT)))
  93.  
  94. (deftrap _CLOCKDISPOSECALLBACK ((ACLOCK (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CB (:POINTER :CALLBACKRECORD)))
  95.    (:STACK :SIGNED-LONG)
  96.    (:STACK-TRAP #xA82A :D0 0 ACLOCK CB ((+ (ASH 4 16) 3) :SIGNED-LONGINT)))
  97.  
  98. (deftrap _CLOCKCALLMEWHEN ((CLOCK (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CB (:POINTER :CALLBACKRECORD)) (PARAM1 :SIGNED-LONG) (PARAM2 :SIGNED-LONG) (PARAM3 :SIGNED-LONG))
  99.    (:STACK :SIGNED-LONG)
  100.    (:STACK-TRAP #xA82A :D0 0 CLOCK CB PARAM1 PARAM2 PARAM3 ((+ (ASH 16 16) 4) :SIGNED-LONGINT)))
  101.  
  102. (deftrap _CLOCKCANCELCALLBACK ((CLOCK (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CB (:POINTER :CALLBACKRECORD)))
  103.    (:STACK :SIGNED-LONG)
  104.    (:STACK-TRAP #xA82A :D0 0 CLOCK CB ((+ (ASH 4 16) 5) :SIGNED-LONGINT)))
  105.  
  106. (deftrap _CLOCKRATECHANGED ((CLOCK (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CB (:POINTER :CALLBACKRECORD)))
  107.    (:STACK :SIGNED-LONG)
  108.    (:STACK-TRAP #xA82A :D0 0 CLOCK CB ((+ (ASH 4 16) 6) :SIGNED-LONGINT)))
  109.  
  110. (deftrap _CLOCKTIMECHANGED ((CLOCK (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CB (:POINTER :CALLBACKRECORD)))
  111.    (:STACK :SIGNED-LONG)
  112.    (:STACK-TRAP #xA82A :D0 0 CLOCK CB ((+ (ASH 4 16) 7) :SIGNED-LONGINT)))
  113.  
  114. (deftrap _CLOCKSETTIMEBASE ((CLOCK (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TB (:POINTER :TIMEBASERECORD)))
  115.    (:STACK :SIGNED-LONG)
  116.    (:STACK-TRAP #xA82A :D0 0 CLOCK TB ((+ (ASH 4 16) 8) :SIGNED-LONGINT)))
  117.  
  118. (deftrap _CLOCKSTARTSTOPCHANGED ((CLOCK (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CB (:POINTER :CALLBACKRECORD)) (STARTCHANGED :BOOLEAN) (STOPCHANGED :BOOLEAN))
  119.    (:STACK :SIGNED-LONG)
  120.    (:STACK-TRAP #xA82A :D0 0 CLOCK CB STARTCHANGED STOPCHANGED ((+ (ASH 8 16) 9) :SIGNED-LONGINT)))
  121.  
  122. (deftrap _CLOCKGETRATE ((ACLOCK (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (RATE (:POINTER :SIGNED-LONG)))
  123.    (:STACK :SIGNED-LONG)
  124.    (:STACK-TRAP #xA82A :D0 0 ACLOCK RATE ((+ (ASH 4 16) 10) :SIGNED-LONGINT)))
  125.  
  126. ;  Sequence Grab Component 
  127. (def-mactype :SEQGRABCOMPONENT (find-mactype :POINTER))
  128. (def-mactype :SGCHANNEL (find-mactype :POINTER))
  129.  
  130. (defconstant $SeqGrabComponentType :|barg|)
  131. (defconstant $SeqGrabChannelType :|sgch|)
  132.  
  133. (defconstant $SeqGrabPanelType :|sgpn|)
  134. (defconstant $SeqGrabCompressionPanelType :|comp|)
  135. (defconstant $SeqGrabSourcePanelType :|sour|)
  136.  
  137. (defconstant $seqGrabToDisk 1)
  138. (defconstant $seqGrabToMemory 2)
  139. (defconstant $seqGrabUseTempMemory 4)
  140. (defconstant $seqGrabAppendToFile 8)
  141. (defconstant $seqGrabDontAddMovieResource #X10)
  142. (defconstant $seqGrabDontMakeMovie #X20)
  143. (defconstant $seqGrabPreExtendFile #X40)
  144.  
  145. (def-mactype :SEQGRABDATAOUTPUTENUM (find-mactype :SIGNED-LONG))
  146.  
  147. (defconstant $seqGrabRecord 1)
  148. (defconstant $seqGrabPreview 2)
  149. (defconstant $seqGrabPlayDuringRecord 4)
  150.  
  151. (def-mactype :SEQGRABUSAGEENUM (find-mactype :SIGNED-LONG))
  152.  
  153. (defconstant $seqGrabHasBounds 1)
  154. (defconstant $seqGrabHasVolume 2)
  155. (defconstant $seqGrabHasDiscreteSamples 4)
  156.  
  157. (def-mactype :SEQGRABCHANNELINFOENUM (find-mactype :SIGNED-LONG))
  158.  
  159. (defrecord SeqGrabFrameInfo 
  160.    (frameOffset :SIGNED-LONG)
  161.    (frameTime :SIGNED-LONG)
  162.    (frameSize :SIGNED-LONG)
  163.    (frameChannel (:POINTER :PRIVATECOMPONENTINSTANCERECORD))
  164.    (frameRefCon :SIGNED-LONG)
  165.    )
  166.  
  167. (defconstant $grabPictOffScreen 1)
  168. (defconstant $grabPictIgnoreClip 2)
  169.  
  170. (defconstant $sgFlagControlledGrab 1)
  171.  
  172. (def-mactype :SGDATAPROC (find-mactype :POINTER))
  173.  
  174. (defrecord SGDeviceName 
  175.    (name (:STRING 63))
  176.    (icon :HANDLE)
  177.    (flags :SIGNED-LONG)
  178.    (refCon :SIGNED-LONG)
  179.    (reserved :SIGNED-LONG)      ;  zero 
  180.    )
  181.  
  182. (defconstant $sgDeviceNameFlagDeviceUnavailable 1)
  183.  
  184. (def-mactype :SGDEVICELISTPTR (find-mactype :POINTER))
  185. (def-mactype :SGDEVICELIST (find-mactype :HANDLE))
  186. (defrecord (SGDeviceListRecord :handle) 
  187.    (count :SIGNED-INTEGER)
  188.    (selectedIndex :SIGNED-INTEGER)
  189.    (reserved :SIGNED-LONG)
  190.    (entry (:ARRAY :SGDEVICENAME 1))
  191.    )
  192. (def-mactype :ALIGNMENTPROCRECORDPTR (find-mactype :POINTER))
  193.  
  194. (defconstant $sgDeviceListWithIcons 1)
  195. (defconstant $sgDeviceListDontCheckAvailability 2)
  196.  
  197. (defconstant $seqGrabWriteAppend 0)
  198. (defconstant $seqGrabWriteReserve 1)
  199. (defconstant $seqGrabWrite 2)
  200.  
  201. (defconstant $seqGrabUnpause 0)
  202. (defconstant $seqGrabPause 1)
  203. (defconstant $seqGrabPauseForMenu 3)
  204.  
  205. (defconstant $channelFlagDontOpenResFile 2)
  206. (defconstant $channelFlagHasDependency 4)
  207.  
  208. (def-mactype :SGMODALFILTERPROCPTR (find-mactype :POINTER))
  209.  
  210. (defconstant $sgPanelFlagForPanel 1)
  211.  
  212. (defconstant $channelPlayNormal 0)
  213. (defconstant $channelPlayFast 1)
  214. (defconstant $channelPlayHighQuality 2)
  215. (defconstant $channelPlayAllData 4)
  216.  
  217.  
  218. (deftrap _SGINITIALIZE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  219.    (:STACK :SIGNED-LONG)
  220.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 1) :SIGNED-LONGINT)))
  221.  
  222.  
  223. (deftrap _SGSETDATAOUTPUT ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (MOVIEFILE :FSSPEC) (WHEREFLAGS :SIGNED-LONG))
  224.    (:STACK :SIGNED-LONG)
  225.    (:STACK-TRAP #xA82A :D0 0 S MOVIEFILE WHEREFLAGS ((+ (ASH 8 16) 2) :SIGNED-LONGINT)))
  226.  
  227. (deftrap _SGGETDATAOUTPUT ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (MOVIEFILE (:POINTER :FSSPEC)) (WHEREFLAGS (:POINTER :SIGNED-LONG)))
  228.    (:STACK :SIGNED-LONG)
  229.    (:STACK-TRAP #xA82A :D0 0 S MOVIEFILE WHEREFLAGS ((+ (ASH 8 16) 3) :SIGNED-LONGINT)))
  230.  
  231.  
  232. (deftrap _SGSETGWORLD ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (GP (:POINTER :CGRAFPORT)) (GD (:HANDLE :GDEVICE)))
  233.    (:STACK :SIGNED-LONG)
  234.    (:STACK-TRAP #xA82A :D0 0 S GP GD ((+ (ASH 8 16) 4) :SIGNED-LONGINT)))
  235.  
  236. (deftrap _SGGETGWORLD ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (GP (:POINTER (:POINTER :CGRAFPORT))) (GD (:POINTER (:HANDLE :GDEVICE))))
  237.    (:STACK :SIGNED-LONG)
  238.    (:STACK-TRAP #xA82A :D0 0 S GP GD ((+ (ASH 8 16) 5) :SIGNED-LONGINT)))
  239.  
  240.  
  241. (deftrap _SGNEWCHANNEL ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CHANNELTYPE :OSTYPE) (REF (:POINTER (:POINTER :PRIVATECOMPONENTINSTANCERECORD))))
  242.    (:STACK :SIGNED-LONG)
  243.    (:STACK-TRAP #xA82A :D0 0 S CHANNELTYPE REF ((+ (ASH 8 16) 6) :SIGNED-LONGINT)))
  244.  
  245. (deftrap _SGDISPOSECHANNEL ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  246.    (:STACK :SIGNED-LONG)
  247.    (:STACK-TRAP #xA82A :D0 0 S C ((+ (ASH 4 16) 7) :SIGNED-LONGINT)))
  248.  
  249.  
  250. (deftrap _SGSTARTPREVIEW ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  251.    (:STACK :SIGNED-LONG)
  252.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 16) :SIGNED-LONGINT)))
  253.  
  254. (deftrap _SGSTARTRECORD ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  255.    (:STACK :SIGNED-LONG)
  256.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 17) :SIGNED-LONGINT)))
  257.  
  258. (deftrap _SGIDLE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  259.    (:STACK :SIGNED-LONG)
  260.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 18) :SIGNED-LONGINT)))
  261.  
  262. (deftrap _SGSTOP ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  263.    (:STACK :SIGNED-LONG)
  264.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 19) :SIGNED-LONGINT)))
  265.  
  266.  
  267. (deftrap _SGPAUSE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PAUSE :BOOLEAN))
  268.    (:STACK :SIGNED-LONG)
  269.    (:STACK-TRAP #xA82A :D0 0 S PAUSE ((+ (ASH 2 16) 20) :SIGNED-LONGINT)))
  270.  
  271.  
  272. (deftrap _SGPREPARE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PREPAREFORPREVIEW :BOOLEAN) (PREPAREFORRECORD :BOOLEAN))
  273.    (:STACK :SIGNED-LONG)
  274.    (:STACK-TRAP #xA82A :D0 0 S PREPAREFORPREVIEW PREPAREFORRECORD ((+ (ASH 4 16) 21) :SIGNED-LONGINT)))
  275.  
  276. (deftrap _SGRELEASE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  277.    (:STACK :SIGNED-LONG)
  278.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 22) :SIGNED-LONGINT)))
  279.  
  280.  
  281. (deftrap _SGGETMOVIE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  282.    (:STACK (:POINTER :MOVIERECORD))
  283.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 23) :SIGNED-LONGINT)))
  284.  
  285.  
  286. (deftrap _SGSETMAXIMUMRECORDTIME ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TICKS :SIGNED-LONG))
  287.    (:STACK :SIGNED-LONG)
  288.    (:STACK-TRAP #xA82A :D0 0 S TICKS ((+ (ASH 4 16) 24) :SIGNED-LONGINT)))
  289.  
  290. (deftrap _SGGETMAXIMUMRECORDTIME ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TICKS (:POINTER :SIGNED-LONG)))
  291.    (:STACK :SIGNED-LONG)
  292.    (:STACK-TRAP #xA82A :D0 0 S TICKS ((+ (ASH 4 16) 25) :SIGNED-LONGINT)))
  293.  
  294.  
  295. (deftrap _SGGETSTORAGESPACEREMAINING ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BYTES (:POINTER :SIGNED-LONG)))
  296.    (:STACK :SIGNED-LONG)
  297.    (:STACK-TRAP #xA82A :D0 0 S BYTES ((+ (ASH 4 16) 26) :SIGNED-LONGINT)))
  298.  
  299. (deftrap _SGGETTIMEREMAINING ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TICKSLEFT (:POINTER :SIGNED-LONG)))
  300.    (:STACK :SIGNED-LONG)
  301.    (:STACK-TRAP #xA82A :D0 0 S TICKSLEFT ((+ (ASH 4 16) 27) :SIGNED-LONGINT)))
  302.  
  303.  
  304. (deftrap _SGGRABPICT ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (P (:POINTER (:HANDLE :PICTURE))) (BOUNDS :RECT) (OFFSCREENDEPTH :SIGNED-INTEGER) (GRABPICTFLAGS :SIGNED-LONG))
  305.    (:STACK :SIGNED-LONG)
  306.    (:STACK-TRAP #xA82A :D0 0 S P BOUNDS OFFSCREENDEPTH GRABPICTFLAGS ((+ (ASH 14 16) 28) :SIGNED-LONGINT)))
  307.  
  308.  
  309. (deftrap _SGGETLASTMOVIERESID ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (RESID (:POINTER :SIGNED-INTEGER)))
  310.    (:STACK :SIGNED-LONG)
  311.    (:STACK-TRAP #xA82A :D0 0 S RESID ((+ (ASH 4 16) 29) :SIGNED-LONGINT)))
  312.  
  313.  
  314. (deftrap _SGSETFLAGS ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SGFLAGS :SIGNED-LONG))
  315.    (:STACK :SIGNED-LONG)
  316.    (:STACK-TRAP #xA82A :D0 0 S SGFLAGS ((+ (ASH 4 16) 30) :SIGNED-LONGINT)))
  317.  
  318. (deftrap _SGGETFLAGS ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SGFLAGS (:POINTER :SIGNED-LONG)))
  319.    (:STACK :SIGNED-LONG)
  320.    (:STACK-TRAP #xA82A :D0 0 S SGFLAGS ((+ (ASH 4 16) 31) :SIGNED-LONGINT)))
  321.  
  322.  
  323. (deftrap _SGSETDATAPROC ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PROC :POINTER) (REFCON :SIGNED-LONG))
  324.    (:STACK :SIGNED-LONG)
  325.    (:STACK-TRAP #xA82A :D0 0 S PROC REFCON ((+ (ASH 8 16) 32) :SIGNED-LONGINT)))
  326.  
  327. (deftrap _SGNEWCHANNELFROMCOMPONENT ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (NEWCHANNEL (:POINTER (:POINTER :PRIVATECOMPONENTINSTANCERECORD))) (SGCHANNELCOMPONENT (:POINTER :PRIVATECOMPONENTRECORD)))
  328.    (:STACK :SIGNED-LONG)
  329.    (:STACK-TRAP #xA82A :D0 0 S NEWCHANNEL SGCHANNELCOMPONENT ((+ (ASH 8 16) 33) :SIGNED-LONGINT)))
  330.  
  331. (deftrap _SGDISPOSEDEVICELIST ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (LIST (:HANDLE :SGDEVICELISTRECORD)))
  332.    (:STACK :SIGNED-LONG)
  333.    (:STACK-TRAP #xA82A :D0 0 S LIST ((+ (ASH 4 16) 34) :SIGNED-LONGINT)))
  334.  
  335. (deftrap _SGAPPENDDEVICELISTTOMENU ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (LIST (:HANDLE :SGDEVICELISTRECORD)) (MH (:HANDLE :MENUINFO)))
  336.    (:STACK :SIGNED-LONG)
  337.    (:STACK-TRAP #xA82A :D0 0 S LIST MH ((+ (ASH 8 16) 35) :SIGNED-LONGINT)))
  338.  
  339. (deftrap _SGSETSETTINGS ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (UD (:POINTER :USERDATARECORD)) (FLAGS :SIGNED-LONG))
  340.    (:STACK :SIGNED-LONG)
  341.    (:STACK-TRAP #xA82A :D0 0 S UD FLAGS ((+ (ASH 8 16) 36) :SIGNED-LONGINT)))
  342.  
  343. (deftrap _SGGETSETTINGS ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (UD (:POINTER (:POINTER :USERDATARECORD))) (FLAGS :SIGNED-LONG))
  344.    (:STACK :SIGNED-LONG)
  345.    (:STACK-TRAP #xA82A :D0 0 S UD FLAGS ((+ (ASH 8 16) 37) :SIGNED-LONGINT)))
  346.  
  347. (deftrap _SGGETINDCHANNEL ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INDEX :SIGNED-INTEGER) (REF (:POINTER (:POINTER :PRIVATECOMPONENTINSTANCERECORD))) (CHANTYPE (:POINTER :OSTYPE)))
  348.    (:STACK :SIGNED-LONG)
  349.    (:STACK-TRAP #xA82A :D0 0 S INDEX REF CHANTYPE ((+ (ASH 10 16) 38) :SIGNED-LONGINT)))
  350.  
  351. (deftrap _SGUPDATE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (UPDATERGN (:HANDLE :REGION)))
  352.    (:STACK :SIGNED-LONG)
  353.    (:STACK-TRAP #xA82A :D0 0 S UPDATERGN ((+ (ASH 4 16) 39) :SIGNED-LONGINT)))
  354.  
  355. (deftrap _SGGETPAUSE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PAUSED (:POINTER :UNSIGNED-BYTE)))
  356.    (:STACK :SIGNED-LONG)
  357.    (:STACK-TRAP #xA82A :D0 0 S PAUSED ((+ (ASH 4 16) 40) :SIGNED-LONGINT)))
  358.  
  359. (deftrap _SGSETTINGSDIALOG ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (NUMPANELS :SIGNED-INTEGER) (PANELLIST (:POINTER (:POINTER :PRIVATECOMPONENTRECORD))) (FLAGS :SIGNED-LONG) (PROC :POINTER) (PROCREFNUM :SIGNED-LONG))
  360.    (:STACK :SIGNED-LONG)
  361.    (:STACK-TRAP #xA82A :D0 0 S C NUMPANELS PANELLIST FLAGS PROC PROCREFNUM ((+ (ASH 22 16) 41) :SIGNED-LONGINT)))
  362.  
  363. #| Not in ROM - INLINE =  #x0F3C #x0004 #x002A #x7000 #xA82A |#
  364. ; Typo in source: "$f3c" should have been "$2f3c"
  365. (deftrap _SGGETALIGNMENTPROC ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (ALIGNMENTPROC :POINTER))
  366.    (:STACK :SIGNED-LONG)
  367.    (:stack-trap #xa82a :d0 0 s alignmentproc (#x4002a :signed-longint)))
  368.  
  369. (deftrap _SGSETCHANNELSETTINGS ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (UD (:POINTER :USERDATARECORD)) (FLAGS :SIGNED-LONG))
  370.    (:STACK :SIGNED-LONG)
  371.    (:STACK-TRAP #xA82A :D0 0 S C UD FLAGS ((+ (ASH 12 16) 43) :SIGNED-LONGINT)))
  372.  
  373. (deftrap _SGGETCHANNELSETTINGS ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (UD (:POINTER (:POINTER :USERDATARECORD))) (FLAGS :SIGNED-LONG))
  374.    (:STACK :SIGNED-LONG)
  375.    (:STACK-TRAP #xA82A :D0 0 S C UD FLAGS ((+ (ASH 12 16) 44) :SIGNED-LONGINT)))
  376.  
  377. ;    calls from Channel to seqGrab   
  378.  
  379. (deftrap _SGWRITEMOVIEDATA ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (P :POINTER) (LEN :SIGNED-LONG) (OFFSET (:POINTER :SIGNED-LONG)))
  380.    (:STACK :SIGNED-LONG)
  381.    (:STACK-TRAP #xA82A :D0 0 S C P LEN OFFSET ((+ (ASH 16 16) 256) :SIGNED-LONGINT)))
  382.  
  383. (deftrap _SGADDFRAMEREFERENCE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FRAMEINFO (:POINTER :SEQGRABFRAMEINFO)))
  384.    (:STACK :SIGNED-LONG)
  385.    (:STACK-TRAP #xA82A :D0 0 S FRAMEINFO ((+ (ASH 4 16) 257) :SIGNED-LONGINT)))
  386.  
  387. (deftrap _SGGETNEXTFRAMEREFERENCE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FRAMEINFO (:POINTER :SEQGRABFRAMEINFO)) (FRAMEDURATION (:POINTER :SIGNED-LONG)) (FRAMENUMBER (:POINTER :SIGNED-LONG)))
  388.    (:STACK :SIGNED-LONG)
  389.    (:STACK-TRAP #xA82A :D0 0 S FRAMEINFO FRAMEDURATION FRAMENUMBER ((+ (ASH 12 16) 258) :SIGNED-LONGINT)))
  390.  
  391. (deftrap _SGGETTIMEBASE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TB (:POINTER (:POINTER :TIMEBASERECORD))))
  392.    (:STACK :SIGNED-LONG)
  393.    (:STACK-TRAP #xA82A :D0 0 S TB ((+ (ASH 4 16) 259) :SIGNED-LONGINT)))
  394.  
  395. (deftrap _SGSORTDEVICELIST ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (LIST (:HANDLE :SGDEVICELISTRECORD)))
  396.    (:STACK :SIGNED-LONG)
  397.    (:STACK-TRAP #xA82A :D0 0 S LIST ((+ (ASH 4 16) 260) :SIGNED-LONGINT)))
  398.  
  399. (deftrap _SGADDMOVIEDATA ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (P :POINTER) (LEN :SIGNED-LONG) (OFFSET (:POINTER :SIGNED-LONG)) (CHREFCON :SIGNED-LONG) (TIME :SIGNED-LONG) (WRITETYPE :SIGNED-INTEGER))
  400.    (:STACK :SIGNED-LONG)
  401.    (:STACK-TRAP #xA82A :D0 0 S C P LEN OFFSET CHREFCON TIME WRITETYPE ((+ (ASH 26 16) 261) :SIGNED-LONGINT)))
  402.  
  403. (deftrap _SGCHANGEDSOURCE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  404.    (:STACK :SIGNED-LONG)
  405.    (:STACK-TRAP #xA82A :D0 0 S C ((+ (ASH 4 16) 262) :SIGNED-LONGINT)))
  406.  
  407. ;    General Channel Routines   
  408.  
  409. (deftrap _SGSETCHANNELUSAGE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (USAGE :SIGNED-LONG))
  410.    (:STACK :SIGNED-LONG)
  411.    (:STACK-TRAP #xA82A :D0 0 C USAGE ((+ (ASH 4 16) 128) :SIGNED-LONGINT)))
  412.  
  413. (deftrap _SGGETCHANNELUSAGE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (USAGE (:POINTER :SIGNED-LONG)))
  414.    (:STACK :SIGNED-LONG)
  415.    (:STACK-TRAP #xA82A :D0 0 C USAGE ((+ (ASH 4 16) 129) :SIGNED-LONGINT)))
  416.  
  417.  
  418. (deftrap _SGSETCHANNELBOUNDS ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BOUNDS :RECT))
  419.    (:STACK :SIGNED-LONG)
  420.    (:STACK-TRAP #xA82A :D0 0 C BOUNDS ((+ (ASH 4 16) 130) :SIGNED-LONGINT)))
  421.  
  422. (deftrap _SGGETCHANNELBOUNDS ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BOUNDS (:POINTER :RECT)))
  423.    (:STACK :SIGNED-LONG)
  424.    (:STACK-TRAP #xA82A :D0 0 C BOUNDS ((+ (ASH 4 16) 131) :SIGNED-LONGINT)))
  425.  
  426.  
  427. (deftrap _SGSETCHANNELVOLUME ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (VOLUME :SIGNED-INTEGER))
  428.    (:STACK :SIGNED-LONG)
  429.    (:STACK-TRAP #xA82A :D0 0 C VOLUME ((+ (ASH 2 16) 132) :SIGNED-LONGINT)))
  430.  
  431. (deftrap _SGGETCHANNELVOLUME ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (VOLUME (:POINTER :SIGNED-INTEGER)))
  432.    (:STACK :SIGNED-LONG)
  433.    (:STACK-TRAP #xA82A :D0 0 C VOLUME ((+ (ASH 4 16) 133) :SIGNED-LONGINT)))
  434.  
  435.  
  436. (deftrap _SGGETCHANNELINFO ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CHANNELINFO (:POINTER :SIGNED-LONG)))
  437.    (:STACK :SIGNED-LONG)
  438.    (:STACK-TRAP #xA82A :D0 0 C CHANNELINFO ((+ (ASH 4 16) 134) :SIGNED-LONGINT)))
  439.  
  440.  
  441. (deftrap _SGSETCHANNELPLAYFLAGS ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PLAYFLAGS :SIGNED-LONG))
  442.    (:STACK :SIGNED-LONG)
  443.    (:STACK-TRAP #xA82A :D0 0 C PLAYFLAGS ((+ (ASH 4 16) 135) :SIGNED-LONGINT)))
  444.  
  445. (deftrap _SGGETCHANNELPLAYFLAGS ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PLAYFLAGS (:POINTER :SIGNED-LONG)))
  446.    (:STACK :SIGNED-LONG)
  447.    (:STACK-TRAP #xA82A :D0 0 C PLAYFLAGS ((+ (ASH 4 16) 136) :SIGNED-LONGINT)))
  448.  
  449.  
  450. (deftrap _SGSETCHANNELMAXFRAMES ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FRAMECOUNT :SIGNED-LONG))
  451.    (:STACK :SIGNED-LONG)
  452.    (:STACK-TRAP #xA82A :D0 0 C FRAMECOUNT ((+ (ASH 4 16) 137) :SIGNED-LONGINT)))
  453.  
  454. (deftrap _SGGETCHANNELMAXFRAMES ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FRAMECOUNT (:POINTER :SIGNED-LONG)))
  455.    (:STACK :SIGNED-LONG)
  456.    (:STACK-TRAP #xA82A :D0 0 C FRAMECOUNT ((+ (ASH 4 16) 138) :SIGNED-LONGINT)))
  457.  
  458.  
  459. (deftrap _SGSETCHANNELREFCON ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (REFCON :SIGNED-LONG))
  460.    (:STACK :SIGNED-LONG)
  461.    (:STACK-TRAP #xA82A :D0 0 C REFCON ((+ (ASH 4 16) 139) :SIGNED-LONGINT)))
  462.  
  463.  
  464. (deftrap _SGSETCHANNELCLIP ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (THECLIP (:HANDLE :REGION)))
  465.    (:STACK :SIGNED-LONG)
  466.    (:STACK-TRAP #xA82A :D0 0 C THECLIP ((+ (ASH 4 16) 140) :SIGNED-LONGINT)))
  467.  
  468.  
  469. (deftrap _SGGETCHANNELCLIP ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (THECLIP (:POINTER (:HANDLE :REGION))))
  470.    (:STACK :SIGNED-LONG)
  471.    (:STACK-TRAP #xA82A :D0 0 C THECLIP ((+ (ASH 4 16) 141) :SIGNED-LONGINT)))
  472.  
  473.  
  474. (deftrap _SGGETCHANNELSAMPLEDESCRIPTION ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SAMPLEDESC :HANDLE))
  475.    (:STACK :SIGNED-LONG)
  476.    (:STACK-TRAP #xA82A :D0 0 C SAMPLEDESC ((+ (ASH 4 16) 142) :SIGNED-LONGINT)))
  477.  
  478.  
  479. (deftrap _SGGETCHANNELDEVICELIST ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SELECTIONFLAGS :SIGNED-LONG) (LIST (:POINTER (:HANDLE :SGDEVICELISTRECORD))))
  480.    (:STACK :SIGNED-LONG)
  481.    (:STACK-TRAP #xA82A :D0 0 C SELECTIONFLAGS LIST ((+ (ASH 8 16) 143) :SIGNED-LONGINT)))
  482.  
  483.  
  484. (deftrap _SGSETCHANNELDEVICE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (NAME (:POINTER (:STRING 255))))
  485.    (:STACK :SIGNED-LONG)
  486.    (:STACK-TRAP #xA82A :D0 0 C NAME ((+ (ASH 4 16) 144) :SIGNED-LONGINT)))
  487.  
  488.  
  489. (deftrap _SGSETCHANNELMATRIX ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (M (:POINTER :MATRIXRECORD)))
  490.    (:STACK :SIGNED-LONG)
  491.    (:STACK-TRAP #xA82A :D0 0 C M ((+ (ASH 4 16) 145) :SIGNED-LONGINT)))
  492.  
  493.  
  494. (deftrap _SGGETCHANNELMATRIX ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (M (:POINTER :MATRIXRECORD)))
  495.    (:STACK :SIGNED-LONG)
  496.    (:STACK-TRAP #xA82A :D0 0 C M ((+ (ASH 4 16) 146) :SIGNED-LONGINT)))
  497.  
  498.  
  499. (deftrap _SGGETCHANNELTIMESCALE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SCALE (:POINTER :SIGNED-LONG)))
  500.    (:STACK :SIGNED-LONG)
  501.    (:STACK-TRAP #xA82A :D0 0 C SCALE ((+ (ASH 4 16) 147) :SIGNED-LONGINT)))
  502.  
  503. ;    calls from seqGrab to Channel   
  504.  
  505. (deftrap _SGINITCHANNEL ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (OWNER (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  506.    (:STACK :SIGNED-LONG)
  507.    (:STACK-TRAP #xA82A :D0 0 C OWNER ((+ (ASH 4 16) 384) :SIGNED-LONGINT)))
  508.  
  509. (deftrap _SGWRITESAMPLES ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (M (:POINTER :MOVIERECORD)) (THEFILE (:HANDLE :ALIASRECORD)))
  510.    (:STACK :SIGNED-LONG)
  511.    (:STACK-TRAP #xA82A :D0 0 C M THEFILE ((+ (ASH 8 16) 385) :SIGNED-LONGINT)))
  512.  
  513. (deftrap _SGGETDATARATE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BYTESPERSECOND (:POINTER :SIGNED-LONG)))
  514.    (:STACK :SIGNED-LONG)
  515.    (:STACK-TRAP #xA82A :D0 0 C BYTESPERSECOND ((+ (ASH 4 16) 386) :SIGNED-LONGINT)))
  516.  
  517. (deftrap _SGALIGNCHANNELRECT ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (R (:POINTER :RECT)))
  518.    (:STACK :SIGNED-LONG)
  519.    (:STACK-TRAP #xA82A :D0 0 C R ((+ (ASH 4 16) 387) :SIGNED-LONGINT)))
  520.  
  521.  
  522. (deftrap _SGPANELGETDITL ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DITL (:POINTER :HANDLE)))
  523.    (:STACK :SIGNED-LONG)
  524.    (:STACK-TRAP #xA82A :D0 0 S DITL ((+ (ASH 4 16) 512) :SIGNED-LONGINT)))
  525.  
  526. (deftrap _SGPANELGETTITLE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TITLE (:STRING 255)))
  527.    (:STACK :SIGNED-LONG)
  528.    (:STACK-TRAP #xA82A :D0 0 S TITLE ((+ (ASH 4 16) 513) :SIGNED-LONGINT)))
  529.  
  530. (deftrap _SGPANELCANRUN ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  531.    (:STACK :SIGNED-LONG)
  532.    (:STACK-TRAP #xA82A :D0 0 S C ((+ (ASH 4 16) 514) :SIGNED-LONGINT)))
  533.  
  534. (deftrap _SGPANELINSTALL ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (D (:POINTER :GRAFPORT)) (ITEMOFFSET :SIGNED-INTEGER))
  535.    (:STACK :SIGNED-LONG)
  536.    (:STACK-TRAP #xA82A :D0 0 S C D ITEMOFFSET ((+ (ASH 10 16) 515) :SIGNED-LONGINT)))
  537.  
  538. (deftrap _SGPANELEVENT ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (D (:POINTER :GRAFPORT)) (ITEMOFFSET :SIGNED-INTEGER) (THEEVENT (:POINTER :EVENTRECORD)) (ITEMHIT (:POINTER :SIGNED-INTEGER)) (HANDLED (:POINTER :BOOLEAN)))
  539.    (:STACK :SIGNED-LONG)
  540.    (:STACK-TRAP #xA82A :D0 0 S C D ITEMOFFSET THEEVENT ITEMHIT HANDLED ((+ (ASH 22 16) 516) :SIGNED-LONGINT)))
  541.  
  542. (deftrap _SGPANELITEM ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (D (:POINTER :GRAFPORT)) (ITEMOFFSET :SIGNED-INTEGER) (ITEMNUM :SIGNED-INTEGER))
  543.    (:STACK :SIGNED-LONG)
  544.    (:STACK-TRAP #xA82A :D0 0 S C D ITEMOFFSET ITEMNUM ((+ (ASH 12 16) 517) :SIGNED-LONGINT)))
  545.  
  546. (deftrap _SGPANELREMOVE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (D (:POINTER :GRAFPORT)) (ITEMOFFSET :SIGNED-INTEGER))
  547.    (:STACK :SIGNED-LONG)
  548.    (:STACK-TRAP #xA82A :D0 0 S C D ITEMOFFSET ((+ (ASH 10 16) 518) :SIGNED-LONGINT)))
  549.  
  550. (deftrap _SGPANELSETGRABBER ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SG (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  551.    (:STACK :SIGNED-LONG)
  552.    (:STACK-TRAP #xA82A :D0 0 S SG ((+ (ASH 4 16) 519) :SIGNED-LONGINT)))
  553.  
  554. (deftrap _SGPANELSETRESFILE ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (RESREF :SIGNED-INTEGER))
  555.    (:STACK :SIGNED-LONG)
  556.    (:STACK-TRAP #xA82A :D0 0 S RESREF ((+ (ASH 2 16) 520) :SIGNED-LONGINT)))
  557.  
  558. (deftrap _SGPANELGETSETTINGS ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (UD (:POINTER (:POINTER :USERDATARECORD))) (FLAGS :SIGNED-LONG))
  559.    (:STACK :SIGNED-LONG)
  560.    (:STACK-TRAP #xA82A :D0 0 S C UD FLAGS ((+ (ASH 12 16) 521) :SIGNED-LONGINT)))
  561.  
  562. (deftrap _SGPANELSETSETTINGS ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (UD (:POINTER :USERDATARECORD)) (FLAGS :SIGNED-LONG))
  563.    (:STACK :SIGNED-LONG)
  564.    (:STACK-TRAP #xA82A :D0 0 S C UD FLAGS ((+ (ASH 12 16) 522) :SIGNED-LONGINT)))
  565.  
  566. (deftrap _SGPANELVALIDATEINPUT ((S (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (OK (:POINTER :BOOLEAN)))
  567.    (:STACK :SIGNED-LONG)
  568.    (:STACK-TRAP #xA82A :D0 0 S OK ((+ (ASH 4 16) 523) :SIGNED-LONGINT)))
  569.  
  570. ;  Video Routines 
  571.  
  572. (defrecord SGCompressInfo 
  573.    (buffer :POINTER)
  574.    (bufferSize :SIGNED-LONG)
  575.    (similarity :CHARACTER)
  576.    (reserved :CHARACTER)
  577.    )
  578.  
  579. (def-mactype :GRABPROC (find-mactype :POINTER))
  580. (def-mactype :GRABCOMPLETEPROC (find-mactype :POINTER))
  581. (def-mactype :DISPLAYPROC (find-mactype :POINTER))
  582. (def-mactype :COMPRESSPROC (find-mactype :POINTER))
  583. (def-mactype :COMPRESSCOMPLETEPROC (find-mactype :POINTER))
  584. (def-mactype :ADDFRAMEPROC (find-mactype :POINTER))
  585. (def-mactype :TRANSFERFRAMEPROC (find-mactype :POINTER))
  586. (def-mactype :GRABCOMPRESSCOMPLETEPROC (find-mactype :POINTER))
  587. (def-mactype :DISPLAYCOMPRESSPROC (find-mactype :POINTER))
  588.  
  589. (defrecord VideoBottles 
  590.    (procCount :SIGNED-INTEGER)
  591.    (GrabProc :POINTER)
  592.    (GrabCompleteProc :POINTER)
  593.    (DisplayProc :POINTER)
  594.    (CompressProc :POINTER)
  595.    (CompressCompleteProc :POINTER)
  596.    (AddFrameProc :POINTER)
  597.    (TransferFrameProc :POINTER)
  598.    (GrabCompressCompleteProc :POINTER)
  599.    (DisplayCompressProc :POINTER)
  600.    )
  601.  
  602.  
  603. (deftrap _SGGETSRCVIDEOBOUNDS ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (R (:POINTER :RECT)))
  604.    (:STACK :SIGNED-LONG)
  605.    (:STACK-TRAP #xA82A :D0 0 C R ((+ (ASH 4 16) 256) :SIGNED-LONGINT)))
  606.  
  607. (deftrap _SGSETVIDEORECT ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (R :RECT))
  608.    (:STACK :SIGNED-LONG)
  609.    (:STACK-TRAP #xA82A :D0 0 C R ((+ (ASH 4 16) 257) :SIGNED-LONGINT)))
  610.  
  611. (deftrap _SGGETVIDEORECT ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (R (:POINTER :RECT)))
  612.    (:STACK :SIGNED-LONG)
  613.    (:STACK-TRAP #xA82A :D0 0 C R ((+ (ASH 4 16) 258) :SIGNED-LONGINT)))
  614.  
  615.  
  616. (deftrap _SGGETVIDEOCOMPRESSORTYPE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (COMPRESSORTYPE (:POINTER :OSTYPE)))
  617.    (:STACK :SIGNED-LONG)
  618.    (:STACK-TRAP #xA82A :D0 0 C COMPRESSORTYPE ((+ (ASH 4 16) 259) :SIGNED-LONGINT)))
  619.  
  620. (deftrap _SGSETVIDEOCOMPRESSORTYPE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (COMPRESSORTYPE :OSTYPE))
  621.    (:STACK :SIGNED-LONG)
  622.    (:STACK-TRAP #xA82A :D0 0 C COMPRESSORTYPE ((+ (ASH 4 16) 260) :SIGNED-LONGINT)))
  623.  
  624.  
  625. (deftrap _SGSETVIDEOCOMPRESSOR ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DEPTH :SIGNED-INTEGER) (COMPRESSOR (:POINTER :PRIVATECOMPONENTRECORD)) (SPATIALQUALITY :SIGNED-LONG) (TEMPORALQUALITY :SIGNED-LONG) (KEYFRAMERATE :SIGNED-LONG))
  626.    (:STACK :SIGNED-LONG)
  627.    (:STACK-TRAP #xA82A :D0 0 C DEPTH COMPRESSOR SPATIALQUALITY TEMPORALQUALITY KEYFRAMERATE ((+ (ASH 18 16) 261) :SIGNED-LONGINT)))
  628.  
  629. (deftrap _SGGETVIDEOCOMPRESSOR ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DEPTH (:POINTER :SIGNED-INTEGER)) (COMPRESSOR (:POINTER (:POINTER :PRIVATECOMPONENTRECORD))) (SPATIALQUALITY (:POINTER :SIGNED-LONG)) (TEMPORALQUALITY (:POINTER :SIGNED-LONG)) (KEYFRAMERATE (:POINTER :SIGNED-LONG)))
  630.    (:STACK :SIGNED-LONG)
  631.    (:STACK-TRAP #xA82A :D0 0 C DEPTH COMPRESSOR SPATIALQUALITY TEMPORALQUALITY KEYFRAMERATE ((+ (ASH 20 16) 262) :SIGNED-LONGINT)))
  632.  
  633.  
  634. (deftrap _SGGETVIDEODIGITIZERCOMPONENT ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  635.    (:STACK (:POINTER :PRIVATECOMPONENTINSTANCERECORD))
  636.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 263) :SIGNED-LONGINT)))
  637.  
  638. (deftrap _SGSETVIDEODIGITIZERCOMPONENT ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (VDIG (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  639.    (:STACK :SIGNED-LONG)
  640.    (:STACK-TRAP #xA82A :D0 0 C VDIG ((+ (ASH 4 16) 264) :SIGNED-LONGINT)))
  641.  
  642. (deftrap _SGVIDEODIGITIZERCHANGED ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  643.    (:STACK :SIGNED-LONG)
  644.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 265) :SIGNED-LONGINT)))
  645.  
  646.  
  647. (deftrap _SGSETVIDEOBOTTLENECKS ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (VB (:POINTER :VIDEOBOTTLES)))
  648.    (:STACK :SIGNED-LONG)
  649.    (:STACK-TRAP #xA82A :D0 0 C VB ((+ (ASH 4 16) 266) :SIGNED-LONGINT)))
  650.  
  651. (deftrap _SGGETVIDEOBOTTLENECKS ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (VB (:POINTER :VIDEOBOTTLES)))
  652.    (:STACK :SIGNED-LONG)
  653.    (:STACK-TRAP #xA82A :D0 0 C VB ((+ (ASH 4 16) 267) :SIGNED-LONGINT)))
  654.  
  655.  
  656. (deftrap _SGGRABFRAME ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER))
  657.    (:STACK :SIGNED-LONG)
  658.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM ((+ (ASH 2 16) 268) :SIGNED-LONGINT)))
  659.  
  660. (deftrap _SGGRABFRAMECOMPLETE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (DONE (:POINTER :BOOLEAN)))
  661.    (:STACK :SIGNED-LONG)
  662.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM DONE ((+ (ASH 6 16) 269) :SIGNED-LONGINT)))
  663.  
  664.  
  665. (deftrap _SGDISPLAYFRAME ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (MP :MATRIXRECORD) (CLIPRGN (:HANDLE :REGION)))
  666.    (:STACK :SIGNED-LONG)
  667.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM MP CLIPRGN ((+ (ASH 10 16) 270) :SIGNED-LONGINT)))
  668.  
  669. (deftrap _SGCOMPRESSFRAME ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER))
  670.    (:STACK :SIGNED-LONG)
  671.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM ((+ (ASH 2 16) 271) :SIGNED-LONGINT)))
  672.  
  673. (deftrap _SGCOMPRESSFRAMECOMPLETE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (DONE (:POINTER :BOOLEAN)) (CI (:POINTER :SGCOMPRESSINFO)))
  674.    (:STACK :SIGNED-LONG)
  675.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM DONE CI ((+ (ASH 10 16) 272) :SIGNED-LONGINT)))
  676.  
  677. (deftrap _SGADDFRAME ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (ATTIME :SIGNED-LONG) (SCALE :SIGNED-LONG) (CI :SGCOMPRESSINFO))
  678.    (:STACK :SIGNED-LONG)
  679.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM ATTIME SCALE CI ((+ (ASH 14 16) 273) :SIGNED-LONGINT)))
  680.  
  681.  
  682. (deftrap _SGTRANSFERFRAMEFORCOMPRESS ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (MP :MATRIXRECORD) (CLIPRGN (:HANDLE :REGION)))
  683.    (:STACK :SIGNED-LONG)
  684.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM MP CLIPRGN ((+ (ASH 10 16) 274) :SIGNED-LONGINT)))
  685.  
  686.  
  687. (deftrap _SGSETCOMPRESSBUFFER ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DEPTH :SIGNED-INTEGER) (COMPRESSSIZE :RECT))
  688.    (:STACK :SIGNED-LONG)
  689.    (:STACK-TRAP #xA82A :D0 0 C DEPTH COMPRESSSIZE ((+ (ASH 6 16) 275) :SIGNED-LONGINT)))
  690.  
  691.  
  692. (deftrap _SGGETCOMPRESSBUFFER ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DEPTH (:POINTER :SIGNED-INTEGER)) (COMPRESSSIZE (:POINTER :RECT)))
  693.    (:STACK :SIGNED-LONG)
  694.    (:STACK-TRAP #xA82A :D0 0 C DEPTH COMPRESSSIZE ((+ (ASH 8 16) 276) :SIGNED-LONGINT)))
  695.  
  696.  
  697. (deftrap _SGGETBUFFERINFO ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (BUFFERPM (:POINTER (:HANDLE :PIXMAP))) (BUFFERRECT (:POINTER :RECT)) (COMPRESSBUFFER (:POINTER (:POINTER :CGRAFPORT))) (COMPRESSBUFFERRECT (:POINTER :RECT)))
  698.    (:STACK :SIGNED-LONG)
  699.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM BUFFERPM BUFFERRECT COMPRESSBUFFER COMPRESSBUFFERRECT ((+ (ASH 18 16) 277) :SIGNED-LONGINT)))
  700.  
  701.  
  702. (deftrap _SGSETUSESCREENBUFFER ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (USESCREENBUFFER :BOOLEAN))
  703.    (:STACK :SIGNED-LONG)
  704.    (:STACK-TRAP #xA82A :D0 0 C USESCREENBUFFER ((+ (ASH 2 16) 278) :SIGNED-LONGINT)))
  705.  
  706.  
  707. (deftrap _SGGETUSESCREENBUFFER ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (USESCREENBUFFER (:POINTER :BOOLEAN)))
  708.    (:STACK :SIGNED-LONG)
  709.    (:STACK-TRAP #xA82A :D0 0 C USESCREENBUFFER ((+ (ASH 4 16) 279) :SIGNED-LONGINT)))
  710.  
  711.  
  712. (deftrap _SGGRABCOMPRESSCOMPLETE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DONE (:POINTER :BOOLEAN)) (CI (:POINTER :SGCOMPRESSINFO)) (TR (:POINTER :TIMERECORD)))
  713.    (:STACK :SIGNED-LONG)
  714.    (:STACK-TRAP #xA82A :D0 0 C DONE CI TR ((+ (ASH 12 16) 280) :SIGNED-LONGINT)))
  715.  
  716. (deftrap _SGDISPLAYCOMPRESS ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DATAPTR :POINTER) (DESC (:HANDLE :IMAGEDESCRIPTION)) (MP (:POINTER :MATRIXRECORD)) (CLIPRGN (:HANDLE :REGION)))
  717.    (:STACK :SIGNED-LONG)
  718.    (:STACK-TRAP #xA82A :D0 0 C DATAPTR DESC MP CLIPRGN ((+ (ASH 16 16) 281) :SIGNED-LONGINT)))
  719.  
  720.  
  721. (deftrap _SGSETFRAMERATE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FRAMERATE :SIGNED-LONG))
  722.    (:STACK :SIGNED-LONG)
  723.    (:STACK-TRAP #xA82A :D0 0 C FRAMERATE ((+ (ASH 4 16) 282) :SIGNED-LONGINT)))
  724.  
  725.  
  726. (deftrap _SGGETFRAMERATE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FRAMERATE (:POINTER :SIGNED-LONG)))
  727.    (:STACK :SIGNED-LONG)
  728.    (:STACK-TRAP #xA82A :D0 0 C FRAMERATE ((+ (ASH 4 16) 283) :SIGNED-LONGINT)))
  729.  
  730. ;    Sound Routines   
  731.  
  732. (deftrap _SGSETSOUNDINPUTDRIVER ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DRIVERNAME (:STRING 255)))
  733.    (:STACK :SIGNED-LONG)
  734.    (:STACK-TRAP #xA82A :D0 0 C DRIVERNAME ((+ (ASH 4 16) 256) :SIGNED-LONGINT)))
  735.  
  736. (deftrap _SGGETSOUNDINPUTDRIVER ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  737.    (:STACK :SIGNED-LONG)
  738.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 257) :SIGNED-LONGINT)))
  739.  
  740. (deftrap _SGSOUNDINPUTDRIVERCHANGED ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  741.    (:STACK :SIGNED-LONG)
  742.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 258) :SIGNED-LONGINT)))
  743.  
  744.  
  745. (deftrap _SGSETSOUNDRECORDCHUNKSIZE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SECONDS :SIGNED-LONG))
  746.    (:STACK :SIGNED-LONG)
  747.    (:STACK-TRAP #xA82A :D0 0 C SECONDS ((+ (ASH 4 16) 259) :SIGNED-LONGINT)))
  748.  
  749. (deftrap _SGGETSOUNDRECORDCHUNKSIZE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  750.    (:STACK :SIGNED-LONG)
  751.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 260) :SIGNED-LONGINT)))
  752.  
  753.  
  754. (deftrap _SGSETSOUNDINPUTRATE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (RATE :SIGNED-LONG))
  755.    (:STACK :SIGNED-LONG)
  756.    (:STACK-TRAP #xA82A :D0 0 C RATE ((+ (ASH 4 16) 261) :SIGNED-LONGINT)))
  757.  
  758. (deftrap _SGGETSOUNDINPUTRATE ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  759.    (:STACK :SIGNED-LONG)
  760.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 262) :SIGNED-LONGINT)))
  761.  
  762.  
  763. (deftrap _SGSETSOUNDINPUTPARAMETERS ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SAMPLESIZE :SIGNED-INTEGER) (NUMCHANNELS :SIGNED-INTEGER) (COMPRESSIONTYPE :OSTYPE))
  764.    (:STACK :SIGNED-LONG)
  765.    (:STACK-TRAP #xA82A :D0 0 C SAMPLESIZE NUMCHANNELS COMPRESSIONTYPE ((+ (ASH 8 16) 263) :SIGNED-LONGINT)))
  766.  
  767. (deftrap _SGGETSOUNDINPUTPARAMETERS ((C (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SAMPLESIZE (:POINTER :SIGNED-INTEGER)) (NUMCHANNELS (:POINTER :SIGNED-INTEGER)) (COMPRESSIONTYPE (:POINTER :OSTYPE)))
  768.    (:STACK :SIGNED-LONG)
  769.    (:STACK-TRAP #xA82A :D0 0 C SAMPLESIZE NUMCHANNELS COMPRESSIONTYPE ((+ (ASH 12 16) 264) :SIGNED-LONGINT)))
  770.  
  771. (defconstant $sgChannelAtom :|chan|)
  772.  
  773. (defconstant $sgChannelSettingsAtom :|ctom|)
  774. (defconstant $sgChannelDescription :|cdsc|)
  775. (defconstant $sgChannelSettings :|cset|)
  776.  
  777. (defconstant $sgDeviceNameType :|name|)
  778. (defconstant $sgUsageType :|use |)
  779. (defconstant $sgPlayFlagsType :|plyf|)
  780. (defconstant $sgClipType :|clip|)
  781. (defconstant $sgMatrixType :|mtrx|)
  782. (defconstant $sgVolumeType :|volu|)
  783.  
  784. (defconstant $sgPanelSettingsAtom :|ptom|)
  785. (defconstant $sgPanelDescription :|pdsc|)
  786. (defconstant $sgPanelSettings :|pset|)
  787.  
  788. (defconstant $sgcSoundCompressionType :|scmp|)
  789. (defconstant $sgcSoundSampleRateType :|srat|)
  790. (defconstant $sgcSoundChannelCountType :|schn|)
  791. (defconstant $sgcSoundSampleSizeType :|ssiz|)
  792. (defconstant $sgcSoundInputType :|sinp|)
  793. (defconstant $sgcSoundGainType :|gain|)
  794.  
  795. (defconstant $sgcVideoHueType :|hue |)
  796. (defconstant $sgcVideoSaturationType :|satr|)
  797. (defconstant $sgcVideoContrastType :|trst|)
  798. (defconstant $sgcVideoSharpnessType :|shrp|)
  799. (defconstant $sgcVideoBrigtnessType :|brit|)
  800. (defconstant $sgcVideoBlackLevelType :|blkl|)
  801. (defconstant $sgcVideoWhiteLevelType :|whtl|)
  802.  
  803. (defconstant $sgcVideoInputType :|vinp|)
  804. (defconstant $sgcVideoFormatType :|vstd|)
  805. (defconstant $sgcVideoFilterType :|vflt|)
  806.  
  807. (defconstant $sgcVideoRectType :|vrct|)
  808. (defconstant $sgVideoDigitizerType :|vdig|)
  809.  
  810. (defconstant $noDeviceForChannel -9400)
  811. (defconstant $grabTimeComplete -9401)
  812. (defconstant $cantDoThatInCurrentMode -9402)
  813. (defconstant $notEnoughMemoryToGrab -9403)
  814. (defconstant $notEnoughDiskSpaceToGrab -9404)
  815. (defconstant $couldntGetRequiredComponent -9405)
  816. (defconstant $badSGChannel -9406)
  817. (defconstant $seqGrabInfoNotAvailable -9407)
  818. (defconstant $deviceCantMeetRequest -9408)
  819.  
  820. (defconstant $kSGInitializeSelect #X1)
  821. (defconstant $kSGSetDataOutputSelect #X2)
  822. (defconstant $kSGGetDataOutputSelect #X3)
  823. (defconstant $kSGSetGWorldSelect #X4)
  824. (defconstant $kSGGetGWorldSelect #X5)
  825. (defconstant $kSGNewChannelSelect #X6)
  826. (defconstant $kSGDisposeChannelSelect #X7)
  827. (defconstant $kSGStartPreviewSelect #X10)
  828. (defconstant $kSGStartRecordSelect #X11)
  829. (defconstant $kSGIdleSelect #X12)
  830. (defconstant $kSGStopSelect #X13)
  831. (defconstant $kSGPauseSelect #X14)
  832. (defconstant $kSGPrepareSelect #X15)
  833. (defconstant $kSGReleaseSelect #X16)
  834. (defconstant $kSGGetMovieSelect #X17)
  835. (defconstant $kSGSetMaximumRecordTimeSelect #X18)
  836. (defconstant $kSGGetMaximumRecordTimeSelect #X19)
  837. (defconstant $kSGGetStorageSpaceRemainingSelect #X1A)
  838. (defconstant $kSGGetTimeRemainingSelect #X1B)
  839. (defconstant $kSGGrabPictSelect #X1C)
  840. (defconstant $kSGGetLastMovieResIDSelect #X1D)
  841. (defconstant $kSGSetFlagsSelect #X1E)
  842. (defconstant $kSGGetFlagsSelect #X1F)
  843.  
  844. (defconstant $kSGSetDataProcSelect #X20)
  845. (defconstant $kSGNewChannelFromComponentSelect #X21)
  846. (defconstant $kSGDisposeDeviceListSelect #X22)
  847. (defconstant $kSGAppendDeviceListToMenuSelect #X23)
  848. (defconstant $kSGSetSettingsSelect #X24)
  849. (defconstant $kSGGetSettingsSelect #X25)
  850. (defconstant $kSGGetIndChannelSelect #X26)
  851. (defconstant $kSGUpdateSelect #X27)
  852. (defconstant $kSGGetPauseSelect #X28)
  853. (defconstant $kSGSettingsDialogSelect #X29)
  854. (defconstant $kSGGetAlignmentProcSelect #X2A)
  855. (defconstant $kSGSetChannelSettingsSelect #X2B)
  856. (defconstant $kSGGetChannelSettingsSelect #X2C)
  857.  
  858. (defconstant $kSGWriteMovieDataSelect #X100)
  859. (defconstant $kSGAddFrameReferenceSelect #X101)
  860. (defconstant $kSGGetNextFrameReferenceSelect #X102)
  861. (defconstant $kSGGetTimeBaseSelect #X103)
  862. (defconstant $kSGSortDeviceListSelect #X104)
  863. (defconstant $kSGAddMovieDataSelect #X105)
  864. (defconstant $kSGChangedSourceSelect #X106)
  865.  
  866. (defconstant $kSGCSetChannelUsageSelect #X80)
  867. (defconstant $kSGCGetChannelUsageSelect #X81)
  868. (defconstant $kSGCSetChannelBoundsSelect #X82)
  869. (defconstant $kSGCGetChannelBoundsSelect #X83)
  870. (defconstant $kSGCSetChannelVolumeSelect #X84)
  871. (defconstant $kSGCGetChannelVolumeSelect #X85)
  872. (defconstant $kSGCGetChannelInfoSelect #X86)
  873. (defconstant $kSGCSetChannelPlayFlagsSelect #X87)
  874. (defconstant $kSGCGetChannelPlayFlagsSelect #X88)
  875. (defconstant $kSGCSetChannelMaxFramesSelect #X89)
  876. (defconstant $kSGCGetChannelMaxFramesSelect #X8A)
  877. (defconstant $kSGCSetChannelRefConSelect #X8B)
  878. (defconstant $kSGCSetChannelClipSelect #X8C)
  879. (defconstant $kSGCGetChannelClipSelect #X8D)
  880. (defconstant $kSGCGetChannelSampleDescriptionSelect #X8E)
  881. (defconstant $kSGCGetChannelDeviceListSelect #X8F)
  882. (defconstant $kSGCSetChannelDeviceSelect #X90)
  883. (defconstant $kSGCSetChannelMatrixSelect #X91)
  884. (defconstant $kSGCGetChannelMatrixSelect #X92)
  885. (defconstant $kSGCGetChannelTimeScaleSelect #X93)
  886.  
  887. (defconstant $kSGCInitChannelSelect #X180)
  888. (defconstant $kSGCWriteSamplesSelect #X181)
  889. (defconstant $kSGCGetDataRateSelect #X182)
  890. (defconstant $kSGCAlignChannelRectSelect #X183)
  891.  
  892. (defconstant $kSGCPanelGetDitlSelect #X200)
  893. (defconstant $kSGCPanelGetTitleSelect #X201)
  894. (defconstant $kSGCPanelCanRunSelect #X202)
  895. (defconstant $kSGCPanelInstallSelect #X203)
  896. (defconstant $kSGCPanelEventSelect #X204)
  897. (defconstant $kSGCPanelItemSelect #X205)
  898. (defconstant $kSGCPanelRemoveSelect #X206)
  899. (defconstant $kSGCPanelSetGrabberSelect #X207)
  900. (defconstant $kSGCPanelSetResFileSelect #X208)
  901. (defconstant $kSGCPanelGetSettingsSelect #X209)
  902. (defconstant $kSGCPanelSetSettingsSelect #X20A)
  903. (defconstant $kSGCPanelValidateInputSelect #X20B)
  904.  
  905. (defconstant $kSGCGetSrcVideoBoundsSelect #X100)
  906. (defconstant $kSGCSetVideoRectSelect #X101)
  907. (defconstant $kSGCGetVideoRectSelect #X102)
  908. (defconstant $kSGCGetVideoCompressorTypeSelect #X103)
  909. (defconstant $kSGCSetVideoCompressorTypeSelect #X104)
  910. (defconstant $kSGCSetVideoCompressorSelect #X105)
  911. (defconstant $kSGCGetVideoCompressorSelect #X106)
  912. (defconstant $kSGCGetVideoDigitizerComponentSelect #X107)
  913. (defconstant $kSGCSetVideoDigitizerComponentSelect #X108)
  914. (defconstant $kSGCVideoDigitizerChangedSelect #X109)
  915. (defconstant $kSGCSetVideoBottlenecksSelect #X10A)
  916. (defconstant $kSGCGetVideoBottlenecksSelect #X10B)
  917. (defconstant $kSGCGrabFrameSelect #X10C)
  918. (defconstant $kSGCGrabFrameCompleteSelect #X10D)
  919. (defconstant $kSGCDisplayFrameSelect #X10E)
  920. (defconstant $kSGCCompressFrameSelect #X10F)
  921. (defconstant $kSGCCompressFrameCompleteSelect #X110)
  922. (defconstant $kSGCAddFrameSelect #X111)
  923. (defconstant $kSGCTransferFrameForCompressSelect #X112)
  924. (defconstant $kSGCSetCompressBufferSelect #X113)
  925. (defconstant $kSGCGetCompressBufferSelect #X114)
  926. (defconstant $kSGCGetBufferInfoSelect #X115)
  927. (defconstant $kSGCSetUseScreenBufferSelect #X116)
  928. (defconstant $kSGCGetUseScreenBufferSelect #X117)
  929. (defconstant $kSGCGrabCompressCompleteSelect #X118)
  930. (defconstant $kSGCDisplayCompressSelect #X119)
  931. (defconstant $kSGCSetFrameRateSelect #X11A)
  932. (defconstant $kSGCGetFrameRateSelect #X11B)
  933.  
  934. (defconstant $kSGCSetSoundInputDriverSelect #X100)
  935. (defconstant $kSGCGetSoundInputDriverSelect #X101)
  936. (defconstant $kSGCSoundInputDriverChangedSelect #X102)
  937. (defconstant $kSGCSetSoundRecordChunkSizeSelect #X103)
  938. (defconstant $kSGCGetSoundRecordChunkSizeSelect #X104)
  939. (defconstant $kSGCSetSoundInputRateSelect #X105)
  940. (defconstant $kSGCGetSoundInputRateSelect #X106)
  941. (defconstant $kSGCSetSoundInputParametersSelect #X107)
  942. (defconstant $kSGCGetSoundInputParametersSelect #X108)
  943.  
  944. ; 
  945. ;  Video Digitizer Component
  946. ; 
  947. ; 
  948. ;   Standard type for video digitizers 
  949. (defconstant $videoDigitizerComponentType :|vdig|)
  950. (defconstant $vdigInterfaceRev 2)
  951.  
  952. ;  Input Format Standards 
  953. (defconstant $ntscIn 0)         ;  ntsc input format 
  954. (defconstant $currentIn 0)
  955. (defconstant $palIn 1)          ;  pal input format 
  956. (defconstant $secamIn 2)        ;  secam input format 
  957. (defconstant $ntscReallyIn 3)
  958.  
  959. ;  Input Formats 
  960. (defconstant $compositeIn 0)    ;  input is composite format 
  961. (defconstant $sVideoIn 1)       ;  input is sVideo format 
  962. (defconstant $rgbComponentIn 2) ;  input is rgb component format 
  963.  
  964. ;  Video Digitizer PlayThru States 
  965. (defconstant $vdPlayThruOff 0)
  966. (defconstant $vdPlayThruOn 1)
  967.  
  968. ;  Input Color Space Modes 
  969. (defconstant $vdDigitizerBW 0)  ;  black and white 
  970. (defconstant $vdDigitizerRGB 1) ;  rgb color 
  971.  
  972. ;  Phase Lock Loop Modes 
  973. (defconstant $vdBroadcastMode 0);  Broadcast / Laser Disk video mode 
  974. (defconstant $vdVTRMode 1)      ;  VCR / Magnetic media mode 
  975.  
  976. ;  Field Select Options 
  977. (defconstant $vdUseAnyField 0)
  978. (defconstant $vdUseOddField 1)
  979. (defconstant $vdUseEvenField 2)
  980.  
  981. ;  vdig types 
  982. (defconstant $vdTypeBasic 0)    ;  basic, no clipping 
  983. (defconstant $vdTypeAlpha 1)    ;  supports clipping with alpha channel 
  984. (defconstant $vdTypeMask 2)     ;  supports clipping with mask plane 
  985. (defconstant $vdTypeKey 3)      ;  supports clipping with key color(s) 
  986.  
  987. ;  Digitizer Error Codes 
  988. (defconstant $digiUnimpErr -2201);  feature unimplemented 
  989. (defconstant $qtParamErr -2202) ;  bad input parameter ( out of range, etc ) 
  990. (defconstant $matrixErr -2203)  ;  bad matrix, digitizer did nothing 
  991. (defconstant $notExactMatrix -2204);  warning of bad matrix, digitizer did its best 
  992. (defconstant $noMoreKeyColors -2205);  all key indexes in use 
  993. (defconstant $notExactSize -2206);  Can’t do exact size requested 
  994. (defconstant $badDepth -2207)   ;  Can’t digitize into this depth 
  995. (defconstant $noDMA -2208)      ;  Can’t do DMA digitizing ( i.e. can't go to requested dest 
  996. (defconstant $badCallOrder -2209);  Usually due to a status call being called prior to being setup first 
  997.  
  998. ;  Digitizer Input Capability/Current Flags 
  999. (defconstant $digiInDoesNTSC #X1);  digitizer supports NTSC input format 
  1000. (defconstant $digiInDoesPAL #X2);  digitizer supports PAL input format 
  1001. (defconstant $digiInDoesSECAM #X4);  digitizer supports SECAM input format 
  1002. (defconstant $digiInDoesGenLock #X80);  digitizer does genlock 
  1003.  
  1004. (defconstant $digiInDoesComposite #X100);  digitizer supports composite input type 
  1005. (defconstant $digiInDoesSVideo #X200);  digitizer supports S-Video input type 
  1006. (defconstant $digiInDoesComponent #X400);  digitizer supports component (rgb) input type 
  1007. (defconstant $digiInVTR_Broadcast #X800);  digitizer can differentiate between the two 
  1008.  
  1009. (defconstant $digiInDoesColor #X1000);  digitizer supports color 
  1010. (defconstant $digiInDoesBW #X2000);  digitizer supports black & white 
  1011.  
  1012. ;  Digitizer Input Current Flags (these are valid only during active operating conditions) 
  1013. (defconstant $digiInSignalLock #X80000000);  digitizer detects input signal is locked - this bit = horiz lock || vertical lock 
  1014.  
  1015. ;  Digitizer Output Capability/Current Flags 
  1016. (defconstant $digiOutDoes1 #X1) ;  digitizer supports 1 bit pixels 
  1017. (defconstant $digiOutDoes2 #X2) ;  digitizer supports 2 bit pixels 
  1018. (defconstant $digiOutDoes4 #X4) ;  digitizer supports 4 bit pixels 
  1019. (defconstant $digiOutDoes8 #X8) ;  digitizer supports 8 bit pixels 
  1020. (defconstant $digiOutDoes16 #X10);  digitizer supports 16 bit pixels 
  1021. (defconstant $digiOutDoes32 #X20);  digitizer supports 32 bit pixels 
  1022. (defconstant $digiOutDoesDither #X40);  digitizer dithers in indexed modes 
  1023. (defconstant $digiOutDoesStretch #X80);  digitizer can arbitrarily stretch 
  1024. (defconstant $digiOutDoesShrink #X100);  digitizer can arbitrarily shrink 
  1025. (defconstant $digiOutDoesMask #X200);  digitizer can mask to clipping regions 
  1026.  
  1027. (defconstant $digiOutDoesDouble #X800);  digitizer can stretch to exactly double size 
  1028. (defconstant $digiOutDoesQuad #X1000);  digitizer can stretch exactly quadruple size 
  1029. (defconstant $digiOutDoesQuarter #X2000);  digitizer can shrink to exactly quarter size 
  1030. (defconstant $digiOutDoesSixteenth #X4000);  digitizer can shrink to exactly sixteenth size 
  1031.  
  1032. (defconstant $digiOutDoesRotate #X8000);  digitizer supports rotate transformations 
  1033. (defconstant $digiOutDoesHorizFlip #X10000);  digitizer supports horizontal flips Sx < 0 
  1034. (defconstant $digiOutDoesVertFlip #X20000);  digitizer supports vertical flips Sy < 0 
  1035. (defconstant $digiOutDoesSkew #X40000);  digitizer supports skew (shear, twist) 
  1036. (defconstant $digiOutDoesBlend #X80000)
  1037. (defconstant $digiOutDoesWarp #X100000)
  1038.  
  1039. (defconstant $digiOutDoesHW_DMA #X200000);  digitizer not constrained to local device 
  1040. (defconstant $digiOutDoesHWPlayThru #X400000);  digitizer doesn't need time to play thru 
  1041. (defconstant $digiOutDoesILUT #X800000);  digitizer does inverse LUT for index modes 
  1042. (defconstant $digiOutDoesKeyColor #X1000000);  digitizer does key color functions too 
  1043. (defconstant $digiOutDoesAsyncGrabs #X2000000);  digitizer supports async grabs 
  1044. (defconstant $digiOutDoesUnreadableScreenBits #X4000000); playthru doesn't generate readable bits on screen
  1045. (defconstant $digiOutDoesCompress #X8000000);  supports alternate output data types 
  1046. (defconstant $digiOutDoesCompressOnly #X10000000);  can't provide raw frames anywhere 
  1047. (defconstant $digiOutDoesPlayThruDuringCompress #X2000000);  digi can do playthru while providing compressed data 
  1048.  
  1049. (def-mactype :VIDEODIGITIZERCOMPONENT (find-mactype :POINTER))
  1050. (def-mactype :VIDEODIGITIZERERROR (find-mactype :SIGNED-LONG))
  1051.  
  1052. ;  Types 
  1053. (defrecord DigitizerInfo 
  1054.    (vdigType :SIGNED-INTEGER)
  1055.    (inputCapabilityFlags :SIGNED-LONG)
  1056.    (outputCapabilityFlags :SIGNED-LONG)
  1057.    (inputCurrentFlags :SIGNED-LONG)
  1058.    (outputCurrentFlags :SIGNED-LONG)
  1059.    (slot :SIGNED-INTEGER)       ;  temporary for connection purposes 
  1060.    (gdh (:HANDLE :GDEVICE))     ;  temporary for digitizers that have preferred screen 
  1061.    (maskgdh (:HANDLE :GDEVICE)) ;  temporary for digitizers that have mask planes 
  1062.    (minDestHeight :SIGNED-INTEGER);  Smallest resizable height 
  1063.    (minDestWidth :SIGNED-INTEGER);  Smallest resizable width 
  1064.    (maxDestHeight :SIGNED-INTEGER);  Largest resizable height 
  1065.    (maxDestWidth :SIGNED-INTEGER);  Largest resizable height 
  1066.    (blendLevels :SIGNED-INTEGER);  Number of blend levels supported (2 if 1 bit mask) 
  1067.    (Private :SIGNED-LONG)       ;  reserved 
  1068.    )
  1069.  
  1070. (defrecord VdigType 
  1071.    (digType :SIGNED-LONG)
  1072.    (Private :SIGNED-LONG)
  1073.    )
  1074.  
  1075. (def-mactype :VDIGTYPELISTPTR (find-mactype :POINTER))
  1076. (def-mactype :VDIGTYPELISTHANDLE (find-mactype :HANDLE))
  1077. (defrecord (VdigTypeList :handle) 
  1078.    (count :SIGNED-INTEGER)
  1079.    (list (:ARRAY :VDIGTYPE 1))
  1080.    )
  1081.  
  1082. (defrecord VdigBufferRec 
  1083.    (dest (:HANDLE :PIXMAP))
  1084.    (location :POINT)
  1085.    (reserved :SIGNED-LONG)
  1086.    )
  1087.  
  1088. (def-mactype :VDIGBUFFERRECLISTPTR (find-mactype :POINTER))
  1089. (def-mactype :VDIGBUFFERRECLISTHANDLE (find-mactype :HANDLE))
  1090. (defrecord (VdigBufferRecList :handle) 
  1091.    (count :SIGNED-INTEGER)
  1092.    (matrix (:POINTER :MATRIXRECORD))
  1093.    (mask (:HANDLE :REGION))
  1094.    (list (:ARRAY :VDIGBUFFERREC 1))
  1095.    )
  1096.  
  1097. (def-mactype :VDIGINTPROC (find-mactype :POINTER))
  1098.  
  1099. (def-mactype :VDCOMPRESSIONLISTPTR (find-mactype :POINTER))
  1100. (def-mactype :VDCOMPRESSIONLISTHANDLE (find-mactype :HANDLE))
  1101. (defrecord (VDCompressionList :handle) 
  1102.    (codec (:POINTER :PRIVATECOMPONENTRECORD))
  1103.    (cType :OSTYPE)
  1104.    (typeName (:STRING 63))
  1105.    (name (:STRING 63))
  1106.    (formatFlags :SIGNED-LONG)
  1107.    (compressFlags :SIGNED-LONG)
  1108.    (reserved :SIGNED-LONG)
  1109.    )
  1110.  
  1111. (defconstant $dmaDepth1 1)
  1112. (defconstant $dmaDepth2 2)
  1113. (defconstant $dmaDepth4 4)
  1114. (defconstant $dmaDepth8 8)
  1115. (defconstant $dmaDepth16 #X10)
  1116. (defconstant $dmaDepth32 #X20)
  1117. (defconstant $dmaDepth2Gray #X40)
  1118. (defconstant $dmaDepth4Gray #X80)
  1119. (defconstant $dmaDepth8Gray #X100)
  1120.  
  1121. (defconstant $kvdigSelectors #X52)
  1122.  
  1123.  
  1124. (deftrap _VDGETMAXSRCRECT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INPUTSTD :SIGNED-INTEGER) (MAXSRCRECT (:POINTER :RECT)))
  1125.    (:STACK :SIGNED-LONG)
  1126.    (:STACK-TRAP #xA82A :D0 0 CI INPUTSTD MAXSRCRECT ((+ (ASH 6 16) 1) :SIGNED-LONGINT)))
  1127.  
  1128. (deftrap _VDGETACTIVESRCRECT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INPUTSTD :SIGNED-INTEGER) (ACTIVESRCRECT (:POINTER :RECT)))
  1129.    (:STACK :SIGNED-LONG)
  1130.    (:STACK-TRAP #xA82A :D0 0 CI INPUTSTD ACTIVESRCRECT ((+ (ASH 6 16) 2) :SIGNED-LONGINT)))
  1131.  
  1132. (deftrap _VDSETDIGITIZERRECT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DIGITIZERRECT (:POINTER :RECT)))
  1133.    (:STACK :SIGNED-LONG)
  1134.    (:STACK-TRAP #xA82A :D0 0 CI DIGITIZERRECT ((+ (ASH 4 16) 3) :SIGNED-LONGINT)))
  1135.  
  1136. (deftrap _VDGETDIGITIZERRECT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DIGITIZERRECT (:POINTER :RECT)))
  1137.    (:STACK :SIGNED-LONG)
  1138.    (:STACK-TRAP #xA82A :D0 0 CI DIGITIZERRECT ((+ (ASH 4 16) 4) :SIGNED-LONGINT)))
  1139.  
  1140. (deftrap _VDGETVBLANKRECT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INPUTSTD :SIGNED-INTEGER) (VBLANKRECT (:POINTER :RECT)))
  1141.    (:STACK :SIGNED-LONG)
  1142.    (:STACK-TRAP #xA82A :D0 0 CI INPUTSTD VBLANKRECT ((+ (ASH 6 16) 5) :SIGNED-LONGINT)))
  1143.  
  1144. (deftrap _VDGETMASKPIXMAP ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (MASKPIXMAP (:HANDLE :PIXMAP)))
  1145.    (:STACK :SIGNED-LONG)
  1146.    (:STACK-TRAP #xA82A :D0 0 CI MASKPIXMAP ((+ (ASH 4 16) 6) :SIGNED-LONGINT)))
  1147.  
  1148. (deftrap _VDGETPLAYTHRUDESTINATION ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DEST (:POINTER (:HANDLE :PIXMAP))) (DESTRECT (:POINTER :RECT)) (M (:POINTER :MATRIXRECORD)) (MASK (:POINTER (:HANDLE :REGION))))
  1149.    (:STACK :SIGNED-LONG)
  1150.    (:STACK-TRAP #xA82A :D0 0 CI DEST DESTRECT M MASK ((+ (ASH 16 16) 8) :SIGNED-LONGINT)))
  1151.  
  1152. (deftrap _VDUSETHISCLUT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (COLORTABLEHANDLE (:HANDLE :COLORTABLE)))
  1153.    (:STACK :SIGNED-LONG)
  1154.    (:STACK-TRAP #xA82A :D0 0 CI COLORTABLEHANDLE ((+ (ASH 4 16) 9) :SIGNED-LONGINT)))
  1155.  
  1156. (deftrap _VDSETINPUTGAMMAVALUE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CHANNEL1 :SIGNED-LONG) (CHANNEL2 :SIGNED-LONG) (CHANNEL3 :SIGNED-LONG))
  1157.    (:STACK :SIGNED-LONG)
  1158.    (:STACK-TRAP #xA82A :D0 0 CI CHANNEL1 CHANNEL2 CHANNEL3 ((+ (ASH 12 16) 10) :SIGNED-LONGINT)))
  1159.  
  1160. (deftrap _VDGETINPUTGAMMAVALUE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CHANNEL1 (:POINTER :SIGNED-LONG)) (CHANNEL2 (:POINTER :SIGNED-LONG)) (CHANNEL3 (:POINTER :SIGNED-LONG)))
  1161.    (:STACK :SIGNED-LONG)
  1162.    (:STACK-TRAP #xA82A :D0 0 CI CHANNEL1 CHANNEL2 CHANNEL3 ((+ (ASH 12 16) 11) :SIGNED-LONGINT)))
  1163.  
  1164. (deftrap _VDSETBRIGHTNESS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BRIGHTNESS (:POINTER :SIGNED-INTEGER)))
  1165.    (:STACK :SIGNED-LONG)
  1166.    (:STACK-TRAP #xA82A :D0 0 CI BRIGHTNESS ((+ (ASH 4 16) 12) :SIGNED-LONGINT)))
  1167.  
  1168. (deftrap _VDGETBRIGHTNESS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BRIGHTNESS (:POINTER :SIGNED-INTEGER)))
  1169.    (:STACK :SIGNED-LONG)
  1170.    (:STACK-TRAP #xA82A :D0 0 CI BRIGHTNESS ((+ (ASH 4 16) 13) :SIGNED-LONGINT)))
  1171.  
  1172. (deftrap _VDSETCONTRAST ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CONTRAST (:POINTER :SIGNED-INTEGER)))
  1173.    (:STACK :SIGNED-LONG)
  1174.    (:STACK-TRAP #xA82A :D0 0 CI CONTRAST ((+ (ASH 4 16) 14) :SIGNED-LONGINT)))
  1175.  
  1176. (deftrap _VDSETHUE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (HUE (:POINTER :SIGNED-INTEGER)))
  1177.    (:STACK :SIGNED-LONG)
  1178.    (:STACK-TRAP #xA82A :D0 0 CI HUE ((+ (ASH 4 16) 15) :SIGNED-LONGINT)))
  1179.  
  1180. (deftrap _VDSETSHARPNESS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SHARPNESS (:POINTER :SIGNED-INTEGER)))
  1181.    (:STACK :SIGNED-LONG)
  1182.    (:STACK-TRAP #xA82A :D0 0 CI SHARPNESS ((+ (ASH 4 16) 16) :SIGNED-LONGINT)))
  1183.  
  1184. (deftrap _VDSETSATURATION ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SATURATION (:POINTER :SIGNED-INTEGER)))
  1185.    (:STACK :SIGNED-LONG)
  1186.    (:STACK-TRAP #xA82A :D0 0 CI SATURATION ((+ (ASH 4 16) 17) :SIGNED-LONGINT)))
  1187.  
  1188. (deftrap _VDGETCONTRAST ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CONTRAST (:POINTER :SIGNED-INTEGER)))
  1189.    (:STACK :SIGNED-LONG)
  1190.    (:STACK-TRAP #xA82A :D0 0 CI CONTRAST ((+ (ASH 4 16) 18) :SIGNED-LONGINT)))
  1191.  
  1192. (deftrap _VDGETHUE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (HUE (:POINTER :SIGNED-INTEGER)))
  1193.    (:STACK :SIGNED-LONG)
  1194.    (:STACK-TRAP #xA82A :D0 0 CI HUE ((+ (ASH 4 16) 19) :SIGNED-LONGINT)))
  1195.  
  1196. (deftrap _VDGETSHARPNESS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SHARPNESS (:POINTER :SIGNED-INTEGER)))
  1197.    (:STACK :SIGNED-LONG)
  1198.    (:STACK-TRAP #xA82A :D0 0 CI SHARPNESS ((+ (ASH 4 16) 20) :SIGNED-LONGINT)))
  1199.  
  1200. (deftrap _VDGETSATURATION ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SATURATION (:POINTER :SIGNED-INTEGER)))
  1201.    (:STACK :SIGNED-LONG)
  1202.    (:STACK-TRAP #xA82A :D0 0 CI SATURATION ((+ (ASH 4 16) 21) :SIGNED-LONGINT)))
  1203.  
  1204. (deftrap _VDGRABONEFRAME ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  1205.    (:STACK :SIGNED-LONG)
  1206.    (:STACK-TRAP #xA82A :D0 0 CI ((+ (ASH 0 16) 22) :SIGNED-LONGINT)))
  1207.  
  1208. (deftrap _VDGETMAXAUXBUFFER ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PM (:POINTER (:HANDLE :PIXMAP))) (R (:POINTER :RECT)))
  1209.    (:STACK :SIGNED-LONG)
  1210.    (:STACK-TRAP #xA82A :D0 0 CI PM R ((+ (ASH 8 16) 23) :SIGNED-LONGINT)))
  1211.  
  1212. (deftrap _VDGETDIGITIZERINFO ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INFO (:POINTER :DIGITIZERINFO)))
  1213.    (:STACK :SIGNED-LONG)
  1214.    (:STACK-TRAP #xA82A :D0 0 CI INFO ((+ (ASH 4 16) 25) :SIGNED-LONGINT)))
  1215.  
  1216. (deftrap _VDGETCURRENTFLAGS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INPUTCURRENTFLAG (:POINTER :SIGNED-LONG)) (OUTPUTCURRENTFLAG (:POINTER :SIGNED-LONG)))
  1217.    (:STACK :SIGNED-LONG)
  1218.    (:STACK-TRAP #xA82A :D0 0 CI INPUTCURRENTFLAG OUTPUTCURRENTFLAG ((+ (ASH 8 16) 26) :SIGNED-LONGINT)))
  1219.  
  1220. (deftrap _VDSETKEYCOLOR ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INDEX :SIGNED-LONG))
  1221.    (:STACK :SIGNED-LONG)
  1222.    (:STACK-TRAP #xA82A :D0 0 CI INDEX ((+ (ASH 4 16) 27) :SIGNED-LONGINT)))
  1223.  
  1224. (deftrap _VDGETKEYCOLOR ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INDEX (:POINTER :SIGNED-LONG)))
  1225.    (:STACK :SIGNED-LONG)
  1226.    (:STACK-TRAP #xA82A :D0 0 CI INDEX ((+ (ASH 4 16) 28) :SIGNED-LONGINT)))
  1227.  
  1228. (deftrap _VDADDKEYCOLOR ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INDEX (:POINTER :SIGNED-LONG)))
  1229.    (:STACK :SIGNED-LONG)
  1230.    (:STACK-TRAP #xA82A :D0 0 CI INDEX ((+ (ASH 4 16) 29) :SIGNED-LONGINT)))
  1231.  
  1232. (deftrap _VDGETNEXTKEYCOLOR ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INDEX :SIGNED-LONG))
  1233.    (:STACK :SIGNED-LONG)
  1234.    (:STACK-TRAP #xA82A :D0 0 CI INDEX ((+ (ASH 4 16) 30) :SIGNED-LONGINT)))
  1235.  
  1236. (deftrap _VDSETKEYCOLORRANGE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (MINRGB (:POINTER :RGBCOLOR)) (MAXRGB (:POINTER :RGBCOLOR)))
  1237.    (:STACK :SIGNED-LONG)
  1238.    (:STACK-TRAP #xA82A :D0 0 CI MINRGB MAXRGB ((+ (ASH 8 16) 31) :SIGNED-LONGINT)))
  1239.  
  1240. (deftrap _VDGETKEYCOLORRANGE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (MINRGB (:POINTER :RGBCOLOR)) (MAXRGB (:POINTER :RGBCOLOR)))
  1241.    (:STACK :SIGNED-LONG)
  1242.    (:STACK-TRAP #xA82A :D0 0 CI MINRGB MAXRGB ((+ (ASH 8 16) 32) :SIGNED-LONGINT)))
  1243.  
  1244. (deftrap _VDSETDIGITIZERUSERINTERRUPT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FLAGS :SIGNED-LONG) (USERINTERRUPTPROC :POINTER) (REFCON :SIGNED-LONG))
  1245.    (:STACK :SIGNED-LONG)
  1246.    (:STACK-TRAP #xA82A :D0 0 CI FLAGS USERINTERRUPTPROC REFCON ((+ (ASH 12 16) 33) :SIGNED-LONGINT)))
  1247.  
  1248. (deftrap _VDSETINPUTCOLORSPACEMODE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (COLORSPACEMODE :SIGNED-INTEGER))
  1249.    (:STACK :SIGNED-LONG)
  1250.    (:STACK-TRAP #xA82A :D0 0 CI COLORSPACEMODE ((+ (ASH 2 16) 34) :SIGNED-LONGINT)))
  1251.  
  1252. (deftrap _VDGETINPUTCOLORSPACEMODE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (COLORSPACEMODE (:POINTER :SIGNED-INTEGER)))
  1253.    (:STACK :SIGNED-LONG)
  1254.    (:STACK-TRAP #xA82A :D0 0 CI COLORSPACEMODE ((+ (ASH 4 16) 35) :SIGNED-LONGINT)))
  1255.  
  1256. (deftrap _VDSETCLIPSTATE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CLIPENABLE :SIGNED-INTEGER))
  1257.    (:STACK :SIGNED-LONG)
  1258.    (:STACK-TRAP #xA82A :D0 0 CI CLIPENABLE ((+ (ASH 2 16) 36) :SIGNED-LONGINT)))
  1259.  
  1260. (deftrap _VDGETCLIPSTATE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CLIPENABLE (:POINTER :SIGNED-INTEGER)))
  1261.    (:STACK :SIGNED-LONG)
  1262.    (:STACK-TRAP #xA82A :D0 0 CI CLIPENABLE ((+ (ASH 4 16) 37) :SIGNED-LONGINT)))
  1263.  
  1264. (deftrap _VDSETCLIPRGN ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CLIPREGION (:HANDLE :REGION)))
  1265.    (:STACK :SIGNED-LONG)
  1266.    (:STACK-TRAP #xA82A :D0 0 CI CLIPREGION ((+ (ASH 4 16) 38) :SIGNED-LONGINT)))
  1267.  
  1268. (deftrap _VDCLEARCLIPRGN ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CLIPREGION (:HANDLE :REGION)))
  1269.    (:STACK :SIGNED-LONG)
  1270.    (:STACK-TRAP #xA82A :D0 0 CI CLIPREGION ((+ (ASH 4 16) 39) :SIGNED-LONGINT)))
  1271.  
  1272. (deftrap _VDGETCLUTINUSE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (COLORTABLEHANDLE (:POINTER (:HANDLE :COLORTABLE))))
  1273.    (:STACK :SIGNED-LONG)
  1274.    (:STACK-TRAP #xA82A :D0 0 CI COLORTABLEHANDLE ((+ (ASH 4 16) 40) :SIGNED-LONGINT)))
  1275.  
  1276. (deftrap _VDSETPLLFILTERTYPE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PLLTYPE :SIGNED-INTEGER))
  1277.    (:STACK :SIGNED-LONG)
  1278.    (:STACK-TRAP #xA82A :D0 0 CI PLLTYPE ((+ (ASH 2 16) 41) :SIGNED-LONGINT)))
  1279.  
  1280. (deftrap _VDGETPLLFILTERTYPE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PLLTYPE (:POINTER :SIGNED-INTEGER)))
  1281.    (:STACK :SIGNED-LONG)
  1282.    (:STACK-TRAP #xA82A :D0 0 CI PLLTYPE ((+ (ASH 4 16) 42) :SIGNED-LONGINT)))
  1283.  
  1284. (deftrap _VDGETMASKANDVALUE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BLENDLEVEL :SIGNED-INTEGER) (MASK (:POINTER :SIGNED-LONG)) (VALUE (:POINTER :SIGNED-LONG)))
  1285.    (:STACK :SIGNED-LONG)
  1286.    (:STACK-TRAP #xA82A :D0 0 CI BLENDLEVEL MASK VALUE ((+ (ASH 10 16) 43) :SIGNED-LONGINT)))
  1287.  
  1288. (deftrap _VDSETMASTERBLENDLEVEL ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BLENDLEVEL (:POINTER :SIGNED-INTEGER)))
  1289.    (:STACK :SIGNED-LONG)
  1290.    (:STACK-TRAP #xA82A :D0 0 CI BLENDLEVEL ((+ (ASH 4 16) 44) :SIGNED-LONGINT)))
  1291.  
  1292. (deftrap _VDSETPLAYTHRUDESTINATION ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DEST (:HANDLE :PIXMAP)) (DESTRECT (:POINTER :RECT)) (M (:POINTER :MATRIXRECORD)) (MASK (:HANDLE :REGION)))
  1293.    (:STACK :SIGNED-LONG)
  1294.    (:STACK-TRAP #xA82A :D0 0 CI DEST DESTRECT M MASK ((+ (ASH 16 16) 45) :SIGNED-LONGINT)))
  1295.  
  1296. (deftrap _VDSETPLAYTHRUONOFF ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (STATE :SIGNED-INTEGER))
  1297.    (:STACK :SIGNED-LONG)
  1298.    (:STACK-TRAP #xA82A :D0 0 CI STATE ((+ (ASH 2 16) 46) :SIGNED-LONGINT)))
  1299.  
  1300. (deftrap _VDSETFIELDPREFERENCE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FIELDFLAG :SIGNED-INTEGER))
  1301.    (:STACK :SIGNED-LONG)
  1302.    (:STACK-TRAP #xA82A :D0 0 CI FIELDFLAG ((+ (ASH 2 16) 47) :SIGNED-LONGINT)))
  1303.  
  1304. (deftrap _VDGETFIELDPREFERENCE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FIELDFLAG (:POINTER :SIGNED-INTEGER)))
  1305.    (:STACK :SIGNED-LONG)
  1306.    (:STACK-TRAP #xA82A :D0 0 CI FIELDFLAG ((+ (ASH 4 16) 48) :SIGNED-LONGINT)))
  1307.  
  1308. (deftrap _VDPREFLIGHTDESTINATION ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DIGITIZERRECT (:POINTER :RECT)) (DEST (:HANDLE :PIXMAP)) (DESTRECT (:POINTER :RECT)) (M (:POINTER :MATRIXRECORD)))
  1309.    (:STACK :SIGNED-LONG)
  1310.    (:STACK-TRAP #xA82A :D0 0 CI DIGITIZERRECT DEST DESTRECT M ((+ (ASH 16 16) 50) :SIGNED-LONGINT)))
  1311.  
  1312. (deftrap _VDPREFLIGHTGLOBALRECT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (THEWINDOW (:POINTER :GRAFPORT)) (GLOBALRECT (:POINTER :RECT)))
  1313.    (:STACK :SIGNED-LONG)
  1314.    (:STACK-TRAP #xA82A :D0 0 CI THEWINDOW GLOBALRECT ((+ (ASH 8 16) 51) :SIGNED-LONGINT)))
  1315.  
  1316. (deftrap _VDSETPLAYTHRUGLOBALRECT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (THEWINDOW (:POINTER :GRAFPORT)) (GLOBALRECT (:POINTER :RECT)))
  1317.    (:STACK :SIGNED-LONG)
  1318.    (:STACK-TRAP #xA82A :D0 0 CI THEWINDOW GLOBALRECT ((+ (ASH 8 16) 52) :SIGNED-LONGINT)))
  1319.  
  1320. (deftrap _VDSETINPUTGAMMARECORD ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INPUTGAMMAPTR (:POINTER :VDGAMMARECORD)))
  1321.    (:STACK :SIGNED-LONG)
  1322.    (:STACK-TRAP #xA82A :D0 0 CI INPUTGAMMAPTR ((+ (ASH 4 16) 53) :SIGNED-LONGINT)))
  1323.  
  1324. (deftrap _VDGETINPUTGAMMARECORD ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INPUTGAMMAPTR (:POINTER (:POINTER :VDGAMMARECORD))))
  1325.    (:STACK :SIGNED-LONG)
  1326.    (:STACK-TRAP #xA82A :D0 0 CI INPUTGAMMAPTR ((+ (ASH 4 16) 54) :SIGNED-LONGINT)))
  1327.  
  1328. (deftrap _VDSETBLACKLEVELVALUE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BLACKLEVEL (:POINTER :SIGNED-INTEGER)))
  1329.    (:STACK :SIGNED-LONG)
  1330.    (:STACK-TRAP #xA82A :D0 0 CI BLACKLEVEL ((+ (ASH 4 16) 55) :SIGNED-LONGINT)))
  1331.  
  1332. (deftrap _VDGETBLACKLEVELVALUE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BLACKLEVEL (:POINTER :SIGNED-INTEGER)))
  1333.    (:STACK :SIGNED-LONG)
  1334.    (:STACK-TRAP #xA82A :D0 0 CI BLACKLEVEL ((+ (ASH 4 16) 56) :SIGNED-LONGINT)))
  1335.  
  1336. (deftrap _VDSETWHITELEVELVALUE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (WHITELEVEL (:POINTER :SIGNED-INTEGER)))
  1337.    (:STACK :SIGNED-LONG)
  1338.    (:STACK-TRAP #xA82A :D0 0 CI WHITELEVEL ((+ (ASH 4 16) 57) :SIGNED-LONGINT)))
  1339.  
  1340. (deftrap _VDGETWHITELEVELVALUE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (WHITELEVEL (:POINTER :SIGNED-INTEGER)))
  1341.    (:STACK :SIGNED-LONG)
  1342.    (:STACK-TRAP #xA82A :D0 0 CI WHITELEVEL ((+ (ASH 4 16) 58) :SIGNED-LONGINT)))
  1343.  
  1344. (deftrap _VDGETVIDEODEFAULTS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BLACKLEVEL (:POINTER :SIGNED-INTEGER)) (WHITELEVEL (:POINTER :SIGNED-INTEGER)) (BRIGHTNESS (:POINTER :SIGNED-INTEGER)) (HUE (:POINTER :SIGNED-INTEGER)) (SATURATION (:POINTER :SIGNED-INTEGER)) (CONTRAST (:POINTER :SIGNED-INTEGER)) (SHARPNESS (:POINTER :SIGNED-INTEGER)))
  1345.    (:STACK :SIGNED-LONG)
  1346.    (:STACK-TRAP #xA82A :D0 0 CI BLACKLEVEL WHITELEVEL BRIGHTNESS HUE SATURATION CONTRAST SHARPNESS ((+ (ASH 28 16) 59) :SIGNED-LONGINT)))
  1347.  
  1348. (deftrap _VDGETNUMBEROFINPUTS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INPUTS (:POINTER :SIGNED-INTEGER)))
  1349.    (:STACK :SIGNED-LONG)
  1350.    (:STACK-TRAP #xA82A :D0 0 CI INPUTS ((+ (ASH 4 16) 60) :SIGNED-LONGINT)))
  1351.  
  1352. (deftrap _VDGETINPUTFORMAT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INPUT :SIGNED-INTEGER) (FORMAT (:POINTER :SIGNED-INTEGER)))
  1353.    (:STACK :SIGNED-LONG)
  1354.    (:STACK-TRAP #xA82A :D0 0 CI INPUT FORMAT ((+ (ASH 6 16) 61) :SIGNED-LONGINT)))
  1355.  
  1356. (deftrap _VDSETINPUT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INPUT :SIGNED-INTEGER))
  1357.    (:STACK :SIGNED-LONG)
  1358.    (:STACK-TRAP #xA82A :D0 0 CI INPUT ((+ (ASH 2 16) 62) :SIGNED-LONGINT)))
  1359.  
  1360. (deftrap _VDGETINPUT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INPUT (:POINTER :SIGNED-INTEGER)))
  1361.    (:STACK :SIGNED-LONG)
  1362.    (:STACK-TRAP #xA82A :D0 0 CI INPUT ((+ (ASH 4 16) 63) :SIGNED-LONGINT)))
  1363.  
  1364. (deftrap _VDSETINPUTSTANDARD ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INPUTSTANDARD :SIGNED-INTEGER))
  1365.    (:STACK :SIGNED-LONG)
  1366.    (:STACK-TRAP #xA82A :D0 0 CI INPUTSTANDARD ((+ (ASH 2 16) 64) :SIGNED-LONGINT)))
  1367.  
  1368. (deftrap _VDSETUPBUFFERS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFERLIST (:HANDLE :VDIGBUFFERRECLIST)))
  1369.    (:STACK :SIGNED-LONG)
  1370.    (:STACK-TRAP #xA82A :D0 0 CI BUFFERLIST ((+ (ASH 4 16) 65) :SIGNED-LONGINT)))
  1371.  
  1372. (deftrap _VDGRABONEFRAMEASYNC ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFER :SIGNED-INTEGER))
  1373.    (:STACK :SIGNED-LONG)
  1374.    (:STACK-TRAP #xA82A :D0 0 CI BUFFER ((+ (ASH 2 16) 66) :SIGNED-LONGINT)))
  1375.  
  1376. (deftrap _VDDONE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFER :SIGNED-INTEGER))
  1377.    (:STACK :SIGNED-LONG)
  1378.    (:STACK-TRAP #xA82A :D0 0 CI BUFFER ((+ (ASH 2 16) 67) :SIGNED-LONGINT)))
  1379.  
  1380. (deftrap _VDSETCOMPRESSION ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (COMPRESSTYPE :OSTYPE) (DEPTH :SIGNED-INTEGER) (BOUNDS (:POINTER :RECT)) (SPATIALQUALITY :SIGNED-LONG) (TEMPORALQUALITY :SIGNED-LONG) (KEYFRAMERATE :SIGNED-LONG))
  1381.    (:STACK :SIGNED-LONG)
  1382.    (:STACK-TRAP #xA82A :D0 0 CI COMPRESSTYPE DEPTH BOUNDS SPATIALQUALITY TEMPORALQUALITY KEYFRAMERATE ((+ (ASH 22 16) 68) :SIGNED-LONGINT)))
  1383.  
  1384.  
  1385. (deftrap _VDCOMPRESSONEFRAMEASYNC ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  1386.    (:STACK :SIGNED-LONG)
  1387.    (:STACK-TRAP #xA82A :D0 0 CI ((+ (ASH 0 16) 69) :SIGNED-LONGINT)))
  1388.  
  1389. ;  See CompressSequenceFrame in ImageCompression.p for the reason behind this massive glue 
  1390.  
  1391. #| Not in ROM - INLINE =  #x206F #x0004 #x4250 #x52AF #x0004 #x2F3C #x0014 #x0046 #x7000 #xA82A |#
  1392. ; hand translated
  1393. (deftrap _VDCOMPRESSDONE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DONE (:POINTER :BOOLEAN)) (THEDATA (:POINTER :POINTER)) (DATASIZE (:POINTER :SIGNED-LONG)) (SIMILARITY (:POINTER :UNSIGNED-BYTE)) (TIME (:POINTER :TIMERECORD)))
  1394.    (:no-trap :SIGNED-LONG)
  1395.    (:no-trap
  1396.     (ccl::with-macptrs ((incd-time (%inc-ptr time 1)))
  1397.       (setf (%get-word time) 0)
  1398.       (ccl::stack-trap #xa82a :d0 0
  1399.                        :long ci
  1400.                        :long done
  1401.                        :long thedata
  1402.                        :long datasize
  1403.                        :long similarity
  1404.                        :long incd-time
  1405.                        :long #x140046))))
  1406.  
  1407.  
  1408. (deftrap _VDRELEASECOMPRESSBUFFER ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BUFFERADDR :POINTER))
  1409.    (:STACK :SIGNED-LONG)
  1410.    (:STACK-TRAP #xA82A :D0 0 CI BUFFERADDR ((+ (ASH 4 16) 71) :SIGNED-LONGINT)))
  1411.  
  1412.  
  1413. (deftrap _VDGETIMAGEDESCRIPTION ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DESC (:HANDLE :IMAGEDESCRIPTION)))
  1414.    (:STACK :SIGNED-LONG)
  1415.    (:STACK-TRAP #xA82A :D0 0 CI DESC ((+ (ASH 4 16) 72) :SIGNED-LONGINT)))
  1416.  
  1417.  
  1418. (deftrap _VDRESETCOMPRESSSEQUENCE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  1419.    (:STACK :SIGNED-LONG)
  1420.    (:STACK-TRAP #xA82A :D0 0 CI ((+ (ASH 0 16) 73) :SIGNED-LONGINT)))
  1421.  
  1422.  
  1423. (deftrap _VDSETCOMPRESSIONONOFF ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (STATE :BOOLEAN))
  1424.    (:STACK :SIGNED-LONG)
  1425.    (:STACK-TRAP #xA82A :D0 0 CI STATE ((+ (ASH 2 16) 74) :SIGNED-LONGINT)))
  1426.  
  1427.  
  1428. (deftrap _VDGETCOMPRESSIONTYPES ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (H (:HANDLE :VDCOMPRESSIONLIST)))
  1429.    (:STACK :SIGNED-LONG)
  1430.    (:STACK-TRAP #xA82A :D0 0 CI H ((+ (ASH 4 16) 75) :SIGNED-LONGINT)))
  1431.  
  1432.  
  1433. (deftrap _VDSETTIMEBASE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TIME (:POINTER :TIMEBASERECORD)))
  1434.    (:STACK :SIGNED-LONG)
  1435.    (:STACK-TRAP #xA82A :D0 0 CI TIME ((+ (ASH 4 16) 76) :SIGNED-LONGINT)))
  1436.  
  1437.  
  1438. (deftrap _VDSETFRAMERATE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FRAMESPERSECOND :SIGNED-LONG))
  1439.    (:STACK :SIGNED-LONG)
  1440.    (:STACK-TRAP #xA82A :D0 0 CI FRAMESPERSECOND ((+ (ASH 4 16) 77) :SIGNED-LONGINT)))
  1441.  
  1442.  
  1443. (deftrap _VDGETDATARATE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (MILLISECPERFRAME (:POINTER :SIGNED-LONG)) (FRAMESPERSECOND (:POINTER :SIGNED-LONG)) (BYTESPERSECOND (:POINTER :SIGNED-LONG)))
  1444.    (:STACK :SIGNED-LONG)
  1445.    (:STACK-TRAP #xA82A :D0 0 CI MILLISECPERFRAME FRAMESPERSECOND BYTESPERSECOND ((+ (ASH 12 16) 78) :SIGNED-LONGINT)))
  1446.  
  1447.  
  1448. (deftrap _VDGETSOUNDINPUTDRIVER ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SOUNDDRIVERNAME (:STRING 255)))
  1449.    (:STACK :SIGNED-LONG)
  1450.    (:STACK-TRAP #xA82A :D0 0 CI SOUNDDRIVERNAME ((+ (ASH 4 16) 79) :SIGNED-LONGINT)))
  1451.  
  1452.  
  1453. (deftrap _VDGETDMADEPTHS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DEPTHARRAY (:POINTER :SIGNED-LONG)) (PREFERREDDEPTH (:POINTER :SIGNED-LONG)))
  1454.    (:STACK :SIGNED-LONG)
  1455.    (:STACK-TRAP #xA82A :D0 0 CI DEPTHARRAY PREFERREDDEPTH ((+ (ASH 8 16) 80) :SIGNED-LONGINT)))
  1456.  
  1457.  
  1458. (deftrap _VDGETPREFERREDTIMESCALE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PREFERRED (:POINTER :SIGNED-LONG)))
  1459.    (:STACK :SIGNED-LONG)
  1460.    (:STACK-TRAP #xA82A :D0 0 CI PREFERRED ((+ (ASH 4 16) 81) :SIGNED-LONGINT)))
  1461.  
  1462.  
  1463. (deftrap _VDRELEASEASYNCBUFFERS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  1464.    (:STACK :SIGNED-LONG)
  1465.    (:STACK-TRAP #xA82A :D0 0 CI ((+ (ASH 0 16) 82) :SIGNED-LONGINT)))
  1466.  
  1467. ;  Video Digitizer Interface 
  1468. (defconstant $kSelectVDGetMaxSrcRect #X1)
  1469. (defconstant $kSelectVDGetActiveSrcRect #X2)
  1470. (defconstant $kSelectVDSetDigitizerRect #X3)
  1471. (defconstant $kSelectVDGetDigitizerRect #X4)
  1472. (defconstant $kSelectVDGetVBlankRect #X5)
  1473. (defconstant $kSelectVDGetMaskPixMap #X6)
  1474. (defconstant $kSelectVDGetPlayThruDestination #X8)
  1475. (defconstant $kSelectVDUseThisCLUT #X9)
  1476. (defconstant $kSelectVDSetInputGammaValue #XA)
  1477. (defconstant $kSelectVDGetInputGammaValue #XB)
  1478. (defconstant $kSelectVDSetBrightness #XC)
  1479. (defconstant $kSelectVDGetBrightness #XD)
  1480. (defconstant $kSelectVDSetContrast #XE)
  1481. (defconstant $kSelectVDSetHue #XF)
  1482. (defconstant $kSelectVDSetSharpness #X10)
  1483. (defconstant $kSelectVDSetSaturation #X11)
  1484. (defconstant $kSelectVDGetContrast #X12)
  1485. (defconstant $kSelectVDGetHue #X13)
  1486. (defconstant $kSelectVDGetSharpness #X14)
  1487. (defconstant $kSelectVDGetSaturation #X15)
  1488. (defconstant $kSelectVDGrabOneFrame #X16)
  1489. (defconstant $kSelectVDGetMaxAuxBuffer #X17)
  1490. (defconstant $kSelectVDGetDigitizerInfo #X19)
  1491. (defconstant $kSelectVDGetCurrentFlags #X1A)
  1492. (defconstant $kSelectVDSetKeyColor #X1B)
  1493. (defconstant $kSelectVDGetKeyColor #X1C)
  1494. (defconstant $kSelectVDAddKeyColor #X1D)
  1495. (defconstant $kSelectVDGetNextKeyColor #X1E)
  1496. (defconstant $kSelectVDSetKeyColorRange #X1F)
  1497. (defconstant $kSelectVDGetKeyColorRange #X20)
  1498. (defconstant $kSelectVDSetDigitizerUserInterrupt #X21)
  1499. (defconstant $kSelectVDSetInputColorSpaceMode #X22)
  1500. (defconstant $kSelectVDGetInputColorSpaceMode #X23)
  1501. (defconstant $kSelectVDSetClipState #X24)
  1502. (defconstant $kSelectVDGetClipState #X25)
  1503. (defconstant $kSelectVDSetClipRgn #X26)
  1504. (defconstant $kSelectVDClearClipRgn #X27)
  1505. (defconstant $kSelectVDGetCLUTInUse #X28)
  1506. (defconstant $kSelectVDSetPLLFilterType #X29)
  1507. (defconstant $kSelectVDGetPLLFilterType #X2A)
  1508. (defconstant $kSelectVDGetMaskandValue #X2B)
  1509. (defconstant $kSelectVDSetMasterBlendLevel #X2C)
  1510. (defconstant $kSelectVDSetPlayThruDestination #X2D)
  1511. (defconstant $kSelectVDSetPlayThruOnOff #X2E)
  1512. (defconstant $kSelectVDSetFieldPreference #X2F)
  1513. (defconstant $kSelectVDGetFieldPreference #X30)
  1514. (defconstant $kSelectVDPreflightDestination #X32)
  1515. (defconstant $kSelectVDPreflightGlobalRect #X33)
  1516. (defconstant $kSelectVDSetPlayThruGlobalRect #X34)
  1517. (defconstant $kSelectVDSetInputGammaRecord #X35)
  1518. (defconstant $kSelectVDGetInputGammaRecord #X36)
  1519. (defconstant $kSelectVDSetBlackLevelValue #X37)
  1520. (defconstant $kSelectVDGetBlackLevelValue #X38)
  1521. (defconstant $kSelectVDSetWhiteLevelValue #X39)
  1522. (defconstant $kSelectVDGetWhiteLevelValue #X3A)
  1523. (defconstant $kSelectVDGetVideoDefaults #X3B)
  1524. (defconstant $kSelectVDGetNumberOfInputs #X3C)
  1525. (defconstant $kSelectVDGetInputFormat #X3D)
  1526. (defconstant $kSelectVDSetInput #X3E)
  1527. (defconstant $kSelectVDGetInput #X3F)
  1528. (defconstant $kSelectVDSetInputStandard #X40)
  1529. (defconstant $kSelectVDSetupBuffers #X41)
  1530. (defconstant $kSelectVDGrabOneFrameAsync #X42)
  1531. (defconstant $kSelectVDDone #X43)
  1532. (defconstant $kSelectVDSetCompression #X44)
  1533. (defconstant $kSelectVDCompressOneFrameAsync #X45)
  1534. (defconstant $kSelectVDCompressDone #X46)
  1535. (defconstant $kSelectVDReleaseCompressBuffer #X47)
  1536. (defconstant $kSelectVDGetImageDescription #X48)
  1537. (defconstant $kSelectVDResetCompressSequence #X49)
  1538. (defconstant $kSelectVDSetCompressionOnOff #X4A)
  1539. (defconstant $kSelectVDGetCompressionTypes #X4B)
  1540. (defconstant $kSelectVDSetTimeBase #X4C)
  1541. (defconstant $kSelectVDSetFrameRate #X4D)
  1542. (defconstant $kSelectVDGetDataRate #X4E)
  1543. (defconstant $kSelectVDGetSoundInputDriver #X4F)
  1544. (defconstant $kSelectVDGetDMADepths #X50)
  1545. (defconstant $kSelectVDGetPreferredTimeScale #X51)
  1546. (defconstant $kSelectVDReleaseAsyncBuffers #X52)
  1547.  
  1548. (defconstant $StandardCompressionType :|scdi|)
  1549. (defconstant $StandardCompressionSubType :|imag|)
  1550.  
  1551. (def-mactype :SCMODALFILTERPROCPTR (find-mactype :POINTER))
  1552. (def-mactype :SCMODALHOOKPROCPTR (find-mactype :POINTER))
  1553.  
  1554. (defconstant $scListEveryCodec #X2)
  1555. (defconstant $scAllowZeroFrameRate #X4)
  1556. (defconstant $scAllowZeroKeyFrameRate #X8)
  1557. (defconstant $scShowBestDepth #X10)
  1558. (defconstant $scUseMovableModal #X20)
  1559.  
  1560. (defconstant $scPreferCropping 1)
  1561. (defconstant $scPreferScaling 2)
  1562. (defconstant $scPreferScalingAndCropping 3)
  1563.  
  1564. (defconstant $scTestImageWidth 80)
  1565. (defconstant $scTestImageHeight 80)
  1566.  
  1567. (defconstant $scOKItem 1)
  1568. (defconstant $scCancelItem 2)
  1569. (defconstant $scCustomItem 3)
  1570.  
  1571. (defconstant $scUserCancelled 1)
  1572.  
  1573. (defrecord SCSpatialSettings 
  1574.    (cType :OSTYPE)
  1575.    (codec (:POINTER :PRIVATECOMPONENTRECORD))
  1576.    (depth :SIGNED-INTEGER)
  1577.    (spatialQuality :SIGNED-LONG)
  1578.    )
  1579.  
  1580. (defrecord SCTemporalSettings 
  1581.    (temporalQuality :SIGNED-LONG)
  1582.    (frameRate :SIGNED-LONG)
  1583.    (keyFrameRate :SIGNED-LONG)
  1584.    )
  1585.  
  1586. (defrecord SCDataRateSettings 
  1587.    (dataRate :SIGNED-LONG)
  1588.    (frameDuration :SIGNED-LONG)
  1589.    (minSpatialQuality :SIGNED-LONG)
  1590.    (minTemporalQuality :SIGNED-LONG)
  1591.    )
  1592.  
  1593. (defrecord SCExtendedProcs 
  1594.    (filterProc :POINTER)
  1595.    (hookProc :POINTER)
  1596.    (refCon :SIGNED-LONG)
  1597.    (customName (:STRING 31))
  1598.    )
  1599.  
  1600. (defconstant $scSpatialSettingsType :|sptl|);     pointer to SCSpatialSettings struct    
  1601. (defconstant $scTemporalSettingsType :|tprl|);  pointer to SCTemporalSettings struct    
  1602. (defconstant $scDataRateSettingsType :|drat|);  pointer to SCDataRateSettings struct    
  1603. (defconstant $scColorTableType :|clut|);     Pointer to CTabHandle    
  1604. (defconstant $scProgressProcType :|prog|);  pointer to ProgressRecord struct    
  1605. (defconstant $scExtendedProcsType :|xprc|);     pointer to SCExtendedProcs struct    
  1606. (defconstant $scPreferenceFlagsType :|pref|);     pointer to long    
  1607. (defconstant $scSettingsStateType :|ssta|);     pointer to Handle    
  1608. (defconstant $scSequenceIDType :|sequ|);     pointer to ImageSequence    
  1609. (defconstant $scWindowPositionType :|wndw|);     pointer to Point    
  1610. (defconstant $scCodecFlagsType :|cflg|);     pointer to CodecFlags    
  1611.  
  1612. (defconstant $scInfoNotFoundErr -8971)
  1613.  
  1614.  
  1615. (deftrap _SCPOSITIONRECT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (R :RECTPTR) (WHERE (:POINTER :POINT)))
  1616.    (:STACK :SIGNED-LONG)
  1617.    (:STACK-TRAP #xA82A :D0 0 CI R WHERE ((+ (ASH 8 16) 2) :SIGNED-LONGINT)))
  1618.  
  1619. (deftrap _SCPOSITIONDIALOG ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (ID :SIGNED-INTEGER) (WHERE (:POINTER :POINT)))
  1620.    (:STACK :SIGNED-LONG)
  1621.    (:STACK-TRAP #xA82A :D0 0 CI ID WHERE ((+ (ASH 6 16) 3) :SIGNED-LONGINT)))
  1622.  
  1623. (deftrap _SCSETTESTIMAGEPICTHANDLE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TESTPICT (:HANDLE :PICTURE)) (TESTRECT :RECTPTR) (TESTFLAGS :SIGNED-INTEGER))
  1624.    (:STACK :SIGNED-LONG)
  1625.    (:STACK-TRAP #xA82A :D0 0 CI TESTPICT TESTRECT TESTFLAGS ((+ (ASH 10 16) 4) :SIGNED-LONGINT)))
  1626.  
  1627. (deftrap _SCSETTESTIMAGEPICTFILE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TESTFILEREF :SIGNED-INTEGER) (TESTRECT :RECTPTR) (TESTFLAGS :SIGNED-INTEGER))
  1628.    (:STACK :SIGNED-LONG)
  1629.    (:STACK-TRAP #xA82A :D0 0 CI TESTFILEREF TESTRECT TESTFLAGS ((+ (ASH 8 16) 5) :SIGNED-LONGINT)))
  1630.  
  1631. (deftrap _SCSETTESTIMAGEPIXMAP ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TESTPIXMAP (:HANDLE :PIXMAP)) (TESTRECT :RECTPTR) (TESTFLAGS :SIGNED-INTEGER))
  1632.    (:STACK :SIGNED-LONG)
  1633.    (:STACK-TRAP #xA82A :D0 0 CI TESTPIXMAP TESTRECT TESTFLAGS ((+ (ASH 10 16) 6) :SIGNED-LONGINT)))
  1634.  
  1635. (deftrap _SCGETBESTDEVICERECT ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (R :RECTPTR))
  1636.    (:STACK :SIGNED-LONG)
  1637.    (:STACK-TRAP #xA82A :D0 0 CI R ((+ (ASH 4 16) 7) :SIGNED-LONGINT)))
  1638.  
  1639. (deftrap _SCREQUESTIMAGESETTINGS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  1640.    (:STACK :SIGNED-LONG)
  1641.    (:STACK-TRAP #xA82A :D0 0 CI ((+ (ASH 0 16) 10) :SIGNED-LONGINT)))
  1642.  
  1643. (deftrap _SCCOMPRESSIMAGE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DESC (:POINTER (:HANDLE :IMAGEDESCRIPTION))) (DATA (:POINTER :HANDLE)))
  1644.    (:STACK :SIGNED-LONG)
  1645.    (:STACK-TRAP #xA82A :D0 0 CI SRC SRCRECT DESC DATA ((+ (ASH 16 16) 11) :SIGNED-LONGINT)))
  1646.  
  1647. (deftrap _SCCOMPRESSPICTURE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SRC (:HANDLE :PICTURE)) (DST (:HANDLE :PICTURE)))
  1648.    (:STACK :SIGNED-LONG)
  1649.    (:STACK-TRAP #xA82A :D0 0 CI SRC DST ((+ (ASH 8 16) 12) :SIGNED-LONGINT)))
  1650.  
  1651. (deftrap _SCCOMPRESSPICTUREFILE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SRCREF :SIGNED-INTEGER) (DSTREF :SIGNED-INTEGER))
  1652.    (:STACK :SIGNED-LONG)
  1653.    (:STACK-TRAP #xA82A :D0 0 CI SRCREF DSTREF ((+ (ASH 4 16) 13) :SIGNED-LONGINT)))
  1654.  
  1655. (deftrap _SCREQUESTSEQUENCESETTINGS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  1656.    (:STACK :SIGNED-LONG)
  1657.    (:STACK-TRAP #xA82A :D0 0 CI ((+ (ASH 0 16) 14) :SIGNED-LONGINT)))
  1658.  
  1659. (deftrap _SCCOMPRESSSEQUENCEBEGIN ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DESC (:POINTER (:HANDLE :IMAGEDESCRIPTION))))
  1660.    (:STACK :SIGNED-LONG)
  1661.    (:STACK-TRAP #xA82A :D0 0 CI SRC SRCRECT DESC ((+ (ASH 12 16) 15) :SIGNED-LONGINT)))
  1662.  
  1663. (deftrap _SCCOMPRESSSEQUENCEFRAME ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DATA (:POINTER :HANDLE)) (DATASIZE (:POINTER :SIGNED-LONG)) (NOTSYNCFLAG (:POINTER :BOOLEAN)))
  1664.    (:STACK :SIGNED-LONG)
  1665.    (:STACK-TRAP #xA82A :D0 0 CI SRC SRCRECT DATA DATASIZE NOTSYNCFLAG ((+ (ASH 20 16) 16) :SIGNED-LONGINT)))
  1666.  
  1667. (deftrap _SCCOMPRESSSEQUENCEEND ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  1668.    (:STACK :SIGNED-LONG)
  1669.    (:STACK-TRAP #xA82A :D0 0 CI ((+ (ASH 0 16) 17) :SIGNED-LONGINT)))
  1670.  
  1671. (deftrap _SCDEFAULTPICTHANDLESETTINGS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SRC (:HANDLE :PICTURE)) (MOTION :BOOLEAN))
  1672.    (:STACK :SIGNED-LONG)
  1673.    (:STACK-TRAP #xA82A :D0 0 CI SRC MOTION ((+ (ASH 6 16) 18) :SIGNED-LONGINT)))
  1674.  
  1675. (deftrap _SCDEFAULTPICTFILESETTINGS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SRCREF :SIGNED-INTEGER) (MOTION :BOOLEAN))
  1676.    (:STACK :SIGNED-LONG)
  1677.    (:STACK-TRAP #xA82A :D0 0 CI SRCREF MOTION ((+ (ASH 4 16) 19) :SIGNED-LONGINT)))
  1678.  
  1679. (deftrap _SCDEFAULTPIXMAPSETTINGS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SRC (:HANDLE :PIXMAP)) (MOTION :BOOLEAN))
  1680.    (:STACK :SIGNED-LONG)
  1681.    (:STACK-TRAP #xA82A :D0 0 CI SRC MOTION ((+ (ASH 4 16) 20) :SIGNED-LONGINT)))
  1682.  
  1683. (deftrap _SCGETINFO ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INFOTYPE :OSTYPE) (INFO :POINTER))
  1684.    (:STACK :SIGNED-LONG)
  1685.    (:STACK-TRAP #xA82A :D0 0 CI INFOTYPE INFO ((+ (ASH 8 16) 21) :SIGNED-LONGINT)))
  1686.  
  1687. (deftrap _SCSETINFO ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INFOTYPE :OSTYPE) (INFO :POINTER))
  1688.    (:STACK :SIGNED-LONG)
  1689.    (:STACK-TRAP #xA82A :D0 0 CI INFOTYPE INFO ((+ (ASH 8 16) 22) :SIGNED-LONGINT)))
  1690.  
  1691. (deftrap _SCNEWGWORLD ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (GWP (:POINTER (:POINTER :CGRAFPORT))) (RP (:POINTER :RECT)) (FLAGS :UNSIGNED-LONGINT))
  1692.    (:STACK :SIGNED-LONG)
  1693.    (:STACK-TRAP #xA82A :D0 0 CI GWP RP FLAGS ((+ (ASH 12 16) 23) :SIGNED-LONGINT)))
  1694.  
  1695. (defconstant $kScPositionRect 2)
  1696. (defconstant $kScPositionDialog 3)
  1697. (defconstant $kScSetTestImagePictHandle 4)
  1698. (defconstant $kScSetTestImagePictFile 5)
  1699. (defconstant $kScSetTestImagePixMap 6)
  1700. (defconstant $kScGetBestDeviceRect 7)
  1701.  
  1702. (defconstant $kScRequestImageSettings #XA)
  1703. (defconstant $kScCompressImage #XB)
  1704. (defconstant $kScCompressPicture #XC)
  1705. (defconstant $kScCompressPictureFile #XD)
  1706. (defconstant $kScRequestSequenceSettings #XE)
  1707. (defconstant $kScCompressSequenceBegin #XF)
  1708. (defconstant $kScCompressSequenceFrame #X10)
  1709. (defconstant $kScCompressSequenceEnd #X11)
  1710. (defconstant $kScDefaultPictHandleSettings #X12)
  1711. (defconstant $kScDefaultPictFileSettings #X13)
  1712. (defconstant $kScDefaultPixMapSettings #X14)
  1713. (defconstant $kScGetInfo #X15)
  1714. (defconstant $kScSetInfo #X16)
  1715. (defconstant $kScNewGWorld #X17)
  1716.  
  1717. ;  For compatibility 
  1718.  
  1719. (defrecord SCParams 
  1720.    (flags :SIGNED-LONG)
  1721.    (theCodecType :OSTYPE)
  1722.    (theCodec (:POINTER :PRIVATECOMPONENTRECORD))
  1723.    (spatialQuality :SIGNED-LONG)
  1724.    (temporalQuality :SIGNED-LONG)
  1725.    (depth :SIGNED-INTEGER)
  1726.    (frameRate :SIGNED-LONG)
  1727.    (keyFrameRate :SIGNED-LONG)
  1728.    (reserved1 :SIGNED-LONG)
  1729.    (reserved2 :SIGNED-LONG)
  1730.    )
  1731.  
  1732. (defconstant $kScShowMotionSettings 1)
  1733. (defconstant $kScGetCompression 1)
  1734. (defconstant $kScSettingsChangedItem -1)
  1735.  
  1736.  
  1737. #| Not in ROM
  1738. (deftrap _OPENSTDCOMPRESSION NIL
  1739.    (:STACK (:POINTER :PRIVATECOMPONENTINSTANCERECORD))
  1740.    (:STACK-TRAP #x0))
  1741. |#
  1742. (deftrap _SCGETCOMPRESSIONEXTENDED ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SPARAMS (:POINTER :SCPARAMS)) (WHERE :POINT) (FILTERPROC :POINTER) (HOOKPROC :POINTER) (REFCON :SIGNED-LONG) (CUSTOMNAME (:STRING 255)))
  1743.    (:STACK :SIGNED-LONG)
  1744.    (:STACK-TRAP #xA82A :D0 0 CI SPARAMS WHERE FILTERPROC HOOKPROC REFCON CUSTOMNAME ((+ (ASH 24 16) 1) :SIGNED-LONGINT)))
  1745.  
  1746. #| Not in ROM - INLINE =  #x42A7 #x42A7 #x42A7 #x42A7 #x2F3C #x0018 #x0001 #x7000 #xA82A
  1747. (deftrap _SCGETCOMPRESSION ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SPARAMS (:POINTER :SCPARAMS)) (WHERE :POINT))
  1748.    (:STACK :SIGNED-LONG)
  1749.    (:STACK-TRAP #x0))
  1750. |#
  1751.  
  1752. ; 
  1753. ; 
  1754. ;         Movie Import Components
  1755. ; 
  1756. ; 
  1757.  
  1758. (def-mactype :MOVIEIMPORTCOMPONENT (find-mactype :POINTER))
  1759. (def-mactype :MOVIEEXPORTCOMPONENT (find-mactype :POINTER))
  1760.  
  1761. (defconstant $MovieImportType :|eat |)
  1762. (defconstant $MovieExportType :|spit|)
  1763.  
  1764. (defconstant $canMovieImportHandles 1)
  1765. (defconstant $canMovieImportFiles 2)
  1766. (defconstant $hasMovieImportUserInterface 4)
  1767. (defconstant $canMovieExportHandles 8)
  1768. (defconstant $canMovieExportFiles #X10)
  1769. (defconstant $hasMovieExportUserInterface #X20)
  1770. (defconstant $dontAutoFileMovieImport #X40)
  1771.  
  1772. (defconstant $kMovieImportExportOpenSelect #$KCOMPONENTOPENSELECT)
  1773. (defconstant $kMovieImportExportCloseSelect #$KCOMPONENTCLOSESELECT)
  1774. (defconstant $kMovieImportExportCanDoSelect #$KCOMPONENTCANDOSELECT)
  1775. (defconstant $kMovieImportExportVersionSelect #$KCOMPONENTVERSIONSELECT)
  1776.  
  1777. (defconstant $kMovieImportHandleSelect 1)
  1778. (defconstant $kMovieImportFileSelect 2)
  1779. (defconstant $kMovieImportSetFrameDurationSelect 3)
  1780. (defconstant $kMovieImportSetSampleDescriptionSelect 4)
  1781. (defconstant $kMovieImportSetMediaFileSelect 5)
  1782. (defconstant $kMovieImportSetDimensionsSelect 6)
  1783. (defconstant $kMovieImportSetChunkSizeSelect 7)
  1784. (defconstant $kMovieImportSetProgressProcSelect 8)
  1785. (defconstant $kMovieImportSetAuxiliaryDataSelect 9)
  1786. (defconstant $kMovieImportSetFromScrapSelect #XA)
  1787. (defconstant $kMovieImportDoUserDialogSelect #XB)
  1788. (defconstant $kMovieImportSetDuration #XC)
  1789.  
  1790. (defconstant $kMovieExportToHandleSelect #X80)
  1791. (defconstant $kMovieExportToFileSelect #X81)
  1792. (defconstant $kMovieExportDoUserDialogSelect #X82)
  1793. (defconstant $kMovieExportGetAuxiliaryDataSelect #X83)
  1794. (defconstant $kMovieExportSetProgressProcSelect #X84)
  1795.  
  1796. (defconstant $movieImportCreateTrack 1)
  1797. (defconstant $movieImportInParallel 2)
  1798. (defconstant $movieImportMustUseTrack 4)
  1799.  
  1800. (defconstant $movieImportResultUsedMultipleTracks 8)
  1801.  
  1802.  
  1803. (deftrap _MOVIEIMPORTHANDLE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DATAH :HANDLE) (THEMOVIE (:POINTER :MOVIERECORD)) (TARGETTRACK (:POINTER :TRACKRECORD)) (USEDTRACK (:POINTER (:POINTER :TRACKRECORD))) (ATTIME :SIGNED-LONG) (ADDEDDURATION (:POINTER :SIGNED-LONG)) (INFLAGS :SIGNED-LONG) (OUTFLAGS (:POINTER :SIGNED-LONG)))
  1804.    (:STACK :SIGNED-LONG)
  1805.    (:STACK-TRAP #xA82A :D0 0 CI DATAH THEMOVIE TARGETTRACK USEDTRACK ATTIME ADDEDDURATION INFLAGS OUTFLAGS ((+ (ASH 32 16) 1) :SIGNED-LONGINT)))
  1806.  
  1807.  
  1808. (deftrap _MOVIEIMPORTFILE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (THEFILE :FSSPEC) (THEMOVIE (:POINTER :MOVIERECORD)) (TARGETTRACK (:POINTER :TRACKRECORD)) (USEDTRACK (:POINTER (:POINTER :TRACKRECORD))) (ATTIME :SIGNED-LONG) (ADDEDDURATION (:POINTER :SIGNED-LONG)) (INFLAGS :SIGNED-LONG) (OUTFLAGS (:POINTER :SIGNED-LONG)))
  1809.    (:STACK :SIGNED-LONG)
  1810.    (:STACK-TRAP #xA82A :D0 0 CI THEFILE THEMOVIE TARGETTRACK USEDTRACK ATTIME ADDEDDURATION INFLAGS OUTFLAGS ((+ (ASH 32 16) 2) :SIGNED-LONGINT)))
  1811.  
  1812.  
  1813. (deftrap _MOVIEIMPORTSETSAMPLEDURATION ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DURATION :SIGNED-LONG) (SCALE :SIGNED-LONG))
  1814.    (:STACK :SIGNED-LONG)
  1815.    (:STACK-TRAP #xA82A :D0 0 CI DURATION SCALE ((+ (ASH 8 16) 3) :SIGNED-LONGINT)))
  1816.  
  1817.  
  1818. (deftrap _MOVIEIMPORTSETSAMPLEDESCRIPTION ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DESC (:HANDLE :SAMPLEDESCRIPTION)) (MEDIATYPE :OSTYPE))
  1819.    (:STACK :SIGNED-LONG)
  1820.    (:STACK-TRAP #xA82A :D0 0 CI DESC MEDIATYPE ((+ (ASH 8 16) 4) :SIGNED-LONGINT)))
  1821.  
  1822.  
  1823. (deftrap _MOVIEIMPORTSETMEDIAFILE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (ALIAS (:HANDLE :ALIASRECORD)))
  1824.    (:STACK :SIGNED-LONG)
  1825.    (:STACK-TRAP #xA82A :D0 0 CI ALIAS ((+ (ASH 4 16) 5) :SIGNED-LONGINT)))
  1826.  
  1827.  
  1828. (deftrap _MOVIEIMPORTSETDIMENSIONS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (WIDTH :SIGNED-LONG) (HEIGHT :SIGNED-LONG))
  1829.    (:STACK :SIGNED-LONG)
  1830.    (:STACK-TRAP #xA82A :D0 0 CI WIDTH HEIGHT ((+ (ASH 8 16) 6) :SIGNED-LONGINT)))
  1831.  
  1832.  
  1833. (deftrap _MOVIEIMPORTSETCHUNKSIZE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CHUNKSIZE :SIGNED-LONG))
  1834.    (:STACK :SIGNED-LONG)
  1835.    (:STACK-TRAP #xA82A :D0 0 CI CHUNKSIZE ((+ (ASH 4 16) 7) :SIGNED-LONGINT)))
  1836.  
  1837.  
  1838. (deftrap _MOVIEIMPORTSETPROGRESSPROC ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PROC :POINTER) (REFCON :SIGNED-LONG))
  1839.    (:STACK :SIGNED-LONG)
  1840.    (:STACK-TRAP #xA82A :D0 0 CI PROC REFCON ((+ (ASH 8 16) 8) :SIGNED-LONGINT)))
  1841.  
  1842.  
  1843. (deftrap _MOVIEIMPORTSETAUXILIARYDATA ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DATA :HANDLE) (HANDLETYPE :OSTYPE))
  1844.    (:STACK :SIGNED-LONG)
  1845.    (:STACK-TRAP #xA82A :D0 0 CI DATA HANDLETYPE ((+ (ASH 8 16) 9) :SIGNED-LONGINT)))
  1846.  
  1847.  
  1848. (deftrap _MOVIEIMPORTSETFROMSCRAP ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FROMSCRAP :BOOLEAN))
  1849.    (:STACK :SIGNED-LONG)
  1850.    (:STACK-TRAP #xA82A :D0 0 CI FROMSCRAP ((+ (ASH 2 16) 10) :SIGNED-LONGINT)))
  1851.  
  1852.  
  1853. (deftrap _MOVIEIMPORTDOUSERDIALOG ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (SRCFILE :FSSPEC) (DATA :HANDLE) (CANCELED (:POINTER :BOOLEAN)))
  1854.    (:STACK :SIGNED-LONG)
  1855.    (:STACK-TRAP #xA82A :D0 0 CI SRCFILE DATA CANCELED ((+ (ASH 12 16) 11) :SIGNED-LONGINT)))
  1856.  
  1857.  
  1858. (deftrap _MOVIEIMPORTSETDURATION ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DURATION :SIGNED-LONG))
  1859.    (:STACK :SIGNED-LONG)
  1860.    (:STACK-TRAP #xA82A :D0 0 CI DURATION ((+ (ASH 4 16) 12) :SIGNED-LONGINT)))
  1861.  
  1862.  
  1863. (deftrap _MOVIEEXPORTTOHANDLE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DATA :HANDLE) (THEMOVIE (:POINTER :MOVIERECORD)) (ONLYTHISTRACK (:POINTER :TRACKRECORD)) (STARTTIME :SIGNED-LONG) (DURATION :SIGNED-LONG))
  1864.    (:STACK :SIGNED-LONG)
  1865.    (:STACK-TRAP #xA82A :D0 0 CI DATA THEMOVIE ONLYTHISTRACK STARTTIME DURATION ((+ (ASH 20 16) 128) :SIGNED-LONGINT)))
  1866.  
  1867.  
  1868. (deftrap _MOVIEEXPORTTOFILE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DSTFILE :FSSPEC) (THEMOVIE (:POINTER :MOVIERECORD)) (ONLYTHISTRACK (:POINTER :TRACKRECORD)) (STARTTIME :SIGNED-LONG) (DURATION :SIGNED-LONG))
  1869.    (:STACK :SIGNED-LONG)
  1870.    (:STACK-TRAP #xA82A :D0 0 CI DSTFILE THEMOVIE ONLYTHISTRACK STARTTIME DURATION ((+ (ASH 20 16) 129) :SIGNED-LONGINT)))
  1871.  
  1872.  
  1873. (deftrap _MOVIEEXPORTDOUSERDIALOG ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DSTFILE :FSSPEC) (DATA :HANDLE) (CANCELED (:POINTER :BOOLEAN)))
  1874.    (:STACK :SIGNED-LONG)
  1875.    (:STACK-TRAP #xA82A :D0 0 CI DSTFILE DATA CANCELED ((+ (ASH 12 16) 130) :SIGNED-LONGINT)))
  1876.  
  1877.  
  1878. (deftrap _MOVIEEXPORTGETAUXILIARYDATA ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DSTFILE :HANDLE) (HANDLETYPE (:POINTER :OSTYPE)))
  1879.    (:STACK :SIGNED-LONG)
  1880.    (:STACK-TRAP #xA82A :D0 0 CI DSTFILE HANDLETYPE ((+ (ASH 8 16) 131) :SIGNED-LONGINT)))
  1881.  
  1882.  
  1883. (deftrap _MOVIEEXPORTSETPROGRESSPROC ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PROC :POINTER) (REFCON :SIGNED-LONG))
  1884.    (:STACK :SIGNED-LONG)
  1885.    (:STACK-TRAP #xA82A :D0 0 CI PROC REFCON ((+ (ASH 8 16) 132) :SIGNED-LONGINT)))
  1886.  
  1887. (def-mactype :PNOTCOMPONENT (find-mactype :POINTER))
  1888.  
  1889. (defconstant $pnotComponentWantsEvents 1)
  1890. (defconstant $pnotComponentNeedsNoCache 2)
  1891.  
  1892. (defconstant $kPreviewOpenSelector 0)
  1893. (defconstant $kPreviewCloseSelector -1)
  1894. (defconstant $kPreviewCanDoSelector -2)
  1895. (defconstant $kPreviewVersionSelector -3)
  1896.  
  1897. (defconstant $kPreviewShowDataSelector 1)
  1898. (defconstant $kPreviewMakePreviewSelector 2)
  1899. (defconstant $kPreviewMakePreviewReferenceSelector 3)
  1900. (defconstant $kPreviewEventSelector 4)
  1901.  
  1902. (defconstant $ShowFilePreviewComponentType :|pnot|)
  1903. (defconstant $CreateFilePreviewrComponentType :|pmak|)
  1904.  
  1905.  
  1906. (deftrap _PREVIEWSHOWDATA ((P (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (DATATYPE :OSTYPE) (DATA :HANDLE) (INHERE (:POINTER :RECT)))
  1907.    (:STACK :SIGNED-LONG)
  1908.    (:STACK-TRAP #xA82A :D0 0 P DATATYPE DATA INHERE ((+ (ASH 12 16) 1) :SIGNED-LONGINT)))
  1909.  
  1910.  
  1911. (deftrap _PREVIEWMAKEPREVIEW ((P (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PREVIEWTYPE (:POINTER :OSTYPE)) (PREVIEWRESULT (:POINTER :HANDLE)) (SOURCEFILE (:POINTER :FSSPEC)) (PROGRESS (:POINTER :PROGRESSPROCRECORD)))
  1912.    (:STACK :SIGNED-LONG)
  1913.    (:STACK-TRAP #xA82A :D0 0 P PREVIEWTYPE PREVIEWRESULT SOURCEFILE PROGRESS ((+ (ASH 16 16) 2) :SIGNED-LONGINT)))
  1914.  
  1915.  
  1916. (deftrap _PREVIEWMAKEPREVIEWREFERENCE ((P (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (PREVIEWTYPE (:POINTER :OSTYPE)) (REID (:POINTER :SIGNED-INTEGER)) (SOURCEFILE (:POINTER :FSSPEC)))
  1917.    (:STACK :SIGNED-LONG)
  1918.    (:STACK-TRAP #xA82A :D0 0 P PREVIEWTYPE REID SOURCEFILE ((+ (ASH 12 16) 3) :SIGNED-LONGINT)))
  1919.  
  1920.  
  1921. (deftrap _PREVIEWEVENT ((P (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (E (:POINTER :EVENTRECORD)) (HANDLEDEVENT (:POINTER :BOOLEAN)))
  1922.    (:STACK :SIGNED-LONG)
  1923.    (:STACK-TRAP #xA82A :D0 0 P E HANDLEDEVENT ((+ (ASH 8 16) 4) :SIGNED-LONGINT)))
  1924.  
  1925. ; $ENDC                         ;  UsingQuickTimeComponents 
  1926.  
  1927. ; $IFC NOT UsingIncludes
  1928.  
  1929. ; $ENDC
  1930.  
  1931.  
  1932. (export '($CREATEFILEPREVIEWRCOMPONENTTYPE $SHOWFILEPREVIEWCOMPONENTTYPE
  1933.           $KPREVIEWEVENTSELECTOR $KPREVIEWMAKEPREVIEWREFERENCESELECTOR
  1934.           $KPREVIEWMAKEPREVIEWSELECTOR $KPREVIEWSHOWDATASELECTOR
  1935.           $KPREVIEWVERSIONSELECTOR $KPREVIEWCANDOSELECTOR
  1936.           $KPREVIEWCLOSESELECTOR $KPREVIEWOPENSELECTOR
  1937.           $PNOTCOMPONENTNEEDSNOCACHE $PNOTCOMPONENTWANTSEVENTS
  1938.           $MOVIEIMPORTRESULTUSEDMULTIPLETRACKS $MOVIEIMPORTMUSTUSETRACK
  1939.           $MOVIEIMPORTINPARALLEL $MOVIEIMPORTCREATETRACK
  1940.           $KMOVIEEXPORTSETPROGRESSPROCSELECT
  1941.           $KMOVIEEXPORTGETAUXILIARYDATASELECT $KMOVIEEXPORTDOUSERDIALOGSELECT
  1942.           $KMOVIEEXPORTTOFILESELECT $KMOVIEEXPORTTOHANDLESELECT
  1943.           $KMOVIEIMPORTSETDURATION $KMOVIEIMPORTDOUSERDIALOGSELECT
  1944.           $KMOVIEIMPORTSETFROMSCRAPSELECT $KMOVIEIMPORTSETAUXILIARYDATASELECT
  1945.           $KMOVIEIMPORTSETPROGRESSPROCSELECT $KMOVIEIMPORTSETCHUNKSIZESELECT
  1946.           $KMOVIEIMPORTSETDIMENSIONSSELECT $KMOVIEIMPORTSETMEDIAFILESELECT
  1947.           $KMOVIEIMPORTSETSAMPLEDESCRIPTIONSELECT
  1948.           $KMOVIEIMPORTSETFRAMEDURATIONSELECT $KMOVIEIMPORTFILESELECT
  1949.           $KMOVIEIMPORTHANDLESELECT $KMOVIEIMPORTEXPORTVERSIONSELECT
  1950.           $KMOVIEIMPORTEXPORTCANDOSELECT $KMOVIEIMPORTEXPORTCLOSESELECT
  1951.           $KMOVIEIMPORTEXPORTOPENSELECT $DONTAUTOFILEMOVIEIMPORT
  1952.           $HASMOVIEEXPORTUSERINTERFACE $CANMOVIEEXPORTFILES
  1953.           $CANMOVIEEXPORTHANDLES $HASMOVIEIMPORTUSERINTERFACE
  1954.           $CANMOVIEIMPORTFILES $CANMOVIEIMPORTHANDLES $MOVIEEXPORTTYPE
  1955.           $MOVIEIMPORTTYPE $KSCSETTINGSCHANGEDITEM $KSCGETCOMPRESSION
  1956.           $KSCSHOWMOTIONSETTINGS $KSCNEWGWORLD $KSCSETINFO $KSCGETINFO
  1957.           $KSCDEFAULTPIXMAPSETTINGS $KSCDEFAULTPICTFILESETTINGS
  1958.           $KSCDEFAULTPICTHANDLESETTINGS $KSCCOMPRESSSEQUENCEEND
  1959.           $KSCCOMPRESSSEQUENCEFRAME $KSCCOMPRESSSEQUENCEBEGIN
  1960.           $KSCREQUESTSEQUENCESETTINGS $KSCCOMPRESSPICTUREFILE
  1961.           $KSCCOMPRESSPICTURE $KSCCOMPRESSIMAGE $KSCREQUESTIMAGESETTINGS
  1962.           $KSCGETBESTDEVICERECT $KSCSETTESTIMAGEPIXMAP $KSCSETTESTIMAGEPICTFILE
  1963.           $KSCSETTESTIMAGEPICTHANDLE $KSCPOSITIONDIALOG $KSCPOSITIONRECT
  1964.           $SCINFONOTFOUNDERR $SCCODECFLAGSTYPE $SCWINDOWPOSITIONTYPE
  1965.           $SCSEQUENCEIDTYPE $SCSETTINGSSTATETYPE $SCPREFERENCEFLAGSTYPE
  1966.           $SCEXTENDEDPROCSTYPE $SCPROGRESSPROCTYPE $SCCOLORTABLETYPE
  1967.           $SCDATARATESETTINGSTYPE $SCTEMPORALSETTINGSTYPE
  1968.           $SCSPATIALSETTINGSTYPE $SCUSERCANCELLED $SCCUSTOMITEM $SCCANCELITEM
  1969.           $SCOKITEM $SCTESTIMAGEHEIGHT $SCTESTIMAGEWIDTH
  1970.           $SCPREFERSCALINGANDCROPPING $SCPREFERSCALING $SCPREFERCROPPING
  1971.           $SCUSEMOVABLEMODAL $SCSHOWBESTDEPTH $SCALLOWZEROKEYFRAMERATE
  1972.           $SCALLOWZEROFRAMERATE $SCLISTEVERYCODEC $STANDARDCOMPRESSIONSUBTYPE
  1973.           $STANDARDCOMPRESSIONTYPE $KSELECTVDRELEASEASYNCBUFFERS
  1974.           $KSELECTVDGETPREFERREDTIMESCALE $KSELECTVDGETDMADEPTHS
  1975.           $KSELECTVDGETSOUNDINPUTDRIVER $KSELECTVDGETDATARATE
  1976.           $KSELECTVDSETFRAMERATE $KSELECTVDSETTIMEBASE
  1977.           $KSELECTVDGETCOMPRESSIONTYPES $KSELECTVDSETCOMPRESSIONONOFF
  1978.           $KSELECTVDRESETCOMPRESSSEQUENCE $KSELECTVDGETIMAGEDESCRIPTION
  1979.           $KSELECTVDRELEASECOMPRESSBUFFER $KSELECTVDCOMPRESSDONE
  1980.           $KSELECTVDCOMPRESSONEFRAMEASYNC $KSELECTVDSETCOMPRESSION
  1981.           $KSELECTVDDONE $KSELECTVDGRABONEFRAMEASYNC $KSELECTVDSETUPBUFFERS
  1982.           $KSELECTVDSETINPUTSTANDARD $KSELECTVDGETINPUT $KSELECTVDSETINPUT
  1983.           $KSELECTVDGETINPUTFORMAT $KSELECTVDGETNUMBEROFINPUTS
  1984.           $KSELECTVDGETVIDEODEFAULTS $KSELECTVDGETWHITELEVELVALUE
  1985.           $KSELECTVDSETWHITELEVELVALUE $KSELECTVDGETBLACKLEVELVALUE
  1986.           $KSELECTVDSETBLACKLEVELVALUE $KSELECTVDGETINPUTGAMMARECORD
  1987.           $KSELECTVDSETINPUTGAMMARECORD $KSELECTVDSETPLAYTHRUGLOBALRECT
  1988.           $KSELECTVDPREFLIGHTGLOBALRECT $KSELECTVDPREFLIGHTDESTINATION
  1989.           $KSELECTVDGETFIELDPREFERENCE $KSELECTVDSETFIELDPREFERENCE
  1990.           $KSELECTVDSETPLAYTHRUONOFF $KSELECTVDSETPLAYTHRUDESTINATION
  1991.           $KSELECTVDSETMASTERBLENDLEVEL $KSELECTVDGETMASKANDVALUE
  1992.           $KSELECTVDGETPLLFILTERTYPE $KSELECTVDSETPLLFILTERTYPE
  1993.           $KSELECTVDGETCLUTINUSE $KSELECTVDCLEARCLIPRGN $KSELECTVDSETCLIPRGN
  1994.           $KSELECTVDGETCLIPSTATE $KSELECTVDSETCLIPSTATE
  1995.           $KSELECTVDGETINPUTCOLORSPACEMODE $KSELECTVDSETINPUTCOLORSPACEMODE
  1996.           $KSELECTVDSETDIGITIZERUSERINTERRUPT $KSELECTVDGETKEYCOLORRANGE
  1997.           $KSELECTVDSETKEYCOLORRANGE $KSELECTVDGETNEXTKEYCOLOR
  1998.           $KSELECTVDADDKEYCOLOR $KSELECTVDGETKEYCOLOR $KSELECTVDSETKEYCOLOR
  1999.           $KSELECTVDGETCURRENTFLAGS $KSELECTVDGETDIGITIZERINFO
  2000.           $KSELECTVDGETMAXAUXBUFFER $KSELECTVDGRABONEFRAME
  2001.           $KSELECTVDGETSATURATION $KSELECTVDGETSHARPNESS $KSELECTVDGETHUE
  2002.           $KSELECTVDGETCONTRAST $KSELECTVDSETSATURATION $KSELECTVDSETSHARPNESS
  2003.           $KSELECTVDSETHUE $KSELECTVDSETCONTRAST $KSELECTVDGETBRIGHTNESS
  2004.           $KSELECTVDSETBRIGHTNESS $KSELECTVDGETINPUTGAMMAVALUE
  2005.           $KSELECTVDSETINPUTGAMMAVALUE $KSELECTVDUSETHISCLUT
  2006.           $KSELECTVDGETPLAYTHRUDESTINATION $KSELECTVDGETMASKPIXMAP
  2007.           $KSELECTVDGETVBLANKRECT $KSELECTVDGETDIGITIZERRECT
  2008.           $KSELECTVDSETDIGITIZERRECT $KSELECTVDGETACTIVESRCRECT
  2009.           $KSELECTVDGETMAXSRCRECT $KVDIGSELECTORS $DMADEPTH8GRAY $DMADEPTH4GRAY
  2010.           $DMADEPTH2GRAY $DMADEPTH32 $DMADEPTH16 $DMADEPTH8 $DMADEPTH4
  2011.           $DMADEPTH2 $DMADEPTH1 $DIGIOUTDOESPLAYTHRUDURINGCOMPRESS
  2012.           $DIGIOUTDOESCOMPRESSONLY $DIGIOUTDOESCOMPRESS
  2013.           $DIGIOUTDOESUNREADABLESCREENBITS $DIGIOUTDOESASYNCGRABS
  2014.           $DIGIOUTDOESKEYCOLOR $DIGIOUTDOESILUT $DIGIOUTDOESHWPLAYTHRU
  2015.           $DIGIOUTDOESHW_DMA $DIGIOUTDOESWARP $DIGIOUTDOESBLEND
  2016.           $DIGIOUTDOESSKEW $DIGIOUTDOESVERTFLIP $DIGIOUTDOESHORIZFLIP
  2017.           $DIGIOUTDOESROTATE $DIGIOUTDOESSIXTEENTH $DIGIOUTDOESQUARTER
  2018.           $DIGIOUTDOESQUAD $DIGIOUTDOESDOUBLE $DIGIOUTDOESMASK
  2019.           $DIGIOUTDOESSHRINK $DIGIOUTDOESSTRETCH $DIGIOUTDOESDITHER
  2020.           $DIGIOUTDOES32 $DIGIOUTDOES16 $DIGIOUTDOES8 $DIGIOUTDOES4
  2021.           $DIGIOUTDOES2 $DIGIOUTDOES1 $DIGIINSIGNALLOCK $DIGIINDOESBW
  2022.           $DIGIINDOESCOLOR $DIGIINVTR_BROADCAST $DIGIINDOESCOMPONENT
  2023.           $DIGIINDOESSVIDEO $DIGIINDOESCOMPOSITE $DIGIINDOESGENLOCK
  2024.           $DIGIINDOESSECAM $DIGIINDOESPAL $DIGIINDOESNTSC $BADCALLORDER $NODMA
  2025.           $BADDEPTH $NOTEXACTSIZE $NOMOREKEYCOLORS $NOTEXACTMATRIX $MATRIXERR
  2026.           $QTPARAMERR $DIGIUNIMPERR $VDTYPEKEY $VDTYPEMASK $VDTYPEALPHA
  2027.           $VDTYPEBASIC $VDUSEEVENFIELD $VDUSEODDFIELD $VDUSEANYFIELD $VDVTRMODE
  2028.           $VDBROADCASTMODE $VDDIGITIZERRGB $VDDIGITIZERBW $VDPLAYTHRUON
  2029.           $VDPLAYTHRUOFF $RGBCOMPONENTIN $SVIDEOIN $COMPOSITEIN $NTSCREALLYIN
  2030.           $SECAMIN $PALIN $CURRENTIN $NTSCIN $VDIGINTERFACEREV
  2031.           $VIDEODIGITIZERCOMPONENTTYPE $KSGCGETSOUNDINPUTPARAMETERSSELECT
  2032.           $KSGCSETSOUNDINPUTPARAMETERSSELECT $KSGCGETSOUNDINPUTRATESELECT
  2033.           $KSGCSETSOUNDINPUTRATESELECT $KSGCGETSOUNDRECORDCHUNKSIZESELECT
  2034.           $KSGCSETSOUNDRECORDCHUNKSIZESELECT $KSGCSOUNDINPUTDRIVERCHANGEDSELECT
  2035.           $KSGCGETSOUNDINPUTDRIVERSELECT $KSGCSETSOUNDINPUTDRIVERSELECT
  2036.           $KSGCGETFRAMERATESELECT $KSGCSETFRAMERATESELECT
  2037.           $KSGCDISPLAYCOMPRESSSELECT $KSGCGRABCOMPRESSCOMPLETESELECT
  2038.           $KSGCGETUSESCREENBUFFERSELECT $KSGCSETUSESCREENBUFFERSELECT
  2039.           $KSGCGETBUFFERINFOSELECT $KSGCGETCOMPRESSBUFFERSELECT
  2040.           $KSGCSETCOMPRESSBUFFERSELECT $KSGCTRANSFERFRAMEFORCOMPRESSSELECT
  2041.           $KSGCADDFRAMESELECT $KSGCCOMPRESSFRAMECOMPLETESELECT
  2042.           $KSGCCOMPRESSFRAMESELECT $KSGCDISPLAYFRAMESELECT
  2043.           $KSGCGRABFRAMECOMPLETESELECT $KSGCGRABFRAMESELECT
  2044.           $KSGCGETVIDEOBOTTLENECKSSELECT $KSGCSETVIDEOBOTTLENECKSSELECT
  2045.           $KSGCVIDEODIGITIZERCHANGEDSELECT
  2046.           $KSGCSETVIDEODIGITIZERCOMPONENTSELECT
  2047.           $KSGCGETVIDEODIGITIZERCOMPONENTSELECT $KSGCGETVIDEOCOMPRESSORSELECT
  2048.           $KSGCSETVIDEOCOMPRESSORSELECT $KSGCSETVIDEOCOMPRESSORTYPESELECT
  2049.           $KSGCGETVIDEOCOMPRESSORTYPESELECT $KSGCGETVIDEORECTSELECT
  2050.           $KSGCSETVIDEORECTSELECT $KSGCGETSRCVIDEOBOUNDSSELECT
  2051.           $KSGCPANELVALIDATEINPUTSELECT $KSGCPANELSETSETTINGSSELECT
  2052.           $KSGCPANELGETSETTINGSSELECT $KSGCPANELSETRESFILESELECT
  2053.           $KSGCPANELSETGRABBERSELECT $KSGCPANELREMOVESELECT
  2054.           $KSGCPANELITEMSELECT $KSGCPANELEVENTSELECT $KSGCPANELINSTALLSELECT
  2055.           $KSGCPANELCANRUNSELECT $KSGCPANELGETTITLESELECT
  2056.           $KSGCPANELGETDITLSELECT $KSGCALIGNCHANNELRECTSELECT
  2057.           $KSGCGETDATARATESELECT $KSGCWRITESAMPLESSELECT $KSGCINITCHANNELSELECT
  2058.           $KSGCGETCHANNELTIMESCALESELECT $KSGCGETCHANNELMATRIXSELECT
  2059.           $KSGCSETCHANNELMATRIXSELECT $KSGCSETCHANNELDEVICESELECT
  2060.           $KSGCGETCHANNELDEVICELISTSELECT
  2061.           $KSGCGETCHANNELSAMPLEDESCRIPTIONSELECT $KSGCGETCHANNELCLIPSELECT
  2062.           $KSGCSETCHANNELCLIPSELECT $KSGCSETCHANNELREFCONSELECT
  2063.           $KSGCGETCHANNELMAXFRAMESSELECT $KSGCSETCHANNELMAXFRAMESSELECT
  2064.           $KSGCGETCHANNELPLAYFLAGSSELECT $KSGCSETCHANNELPLAYFLAGSSELECT
  2065.           $KSGCGETCHANNELINFOSELECT $KSGCGETCHANNELVOLUMESELECT
  2066.           $KSGCSETCHANNELVOLUMESELECT $KSGCGETCHANNELBOUNDSSELECT
  2067.           $KSGCSETCHANNELBOUNDSSELECT $KSGCGETCHANNELUSAGESELECT
  2068.           $KSGCSETCHANNELUSAGESELECT $KSGCHANGEDSOURCESELECT
  2069.           $KSGADDMOVIEDATASELECT $KSGSORTDEVICELISTSELECT $KSGGETTIMEBASESELECT
  2070.           $KSGGETNEXTFRAMEREFERENCESELECT $KSGADDFRAMEREFERENCESELECT
  2071.           $KSGWRITEMOVIEDATASELECT $KSGGETCHANNELSETTINGSSELECT
  2072.           $KSGSETCHANNELSETTINGSSELECT $KSGGETALIGNMENTPROCSELECT
  2073.           $KSGSETTINGSDIALOGSELECT $KSGGETPAUSESELECT $KSGUPDATESELECT
  2074.           $KSGGETINDCHANNELSELECT $KSGGETSETTINGSSELECT $KSGSETSETTINGSSELECT
  2075.           $KSGAPPENDDEVICELISTTOMENUSELECT $KSGDISPOSEDEVICELISTSELECT
  2076.           $KSGNEWCHANNELFROMCOMPONENTSELECT $KSGSETDATAPROCSELECT
  2077.           $KSGGETFLAGSSELECT $KSGSETFLAGSSELECT $KSGGETLASTMOVIERESIDSELECT
  2078.           $KSGGRABPICTSELECT $KSGGETTIMEREMAININGSELECT
  2079.           $KSGGETSTORAGESPACEREMAININGSELECT $KSGGETMAXIMUMRECORDTIMESELECT
  2080.           $KSGSETMAXIMUMRECORDTIMESELECT $KSGGETMOVIESELECT $KSGRELEASESELECT
  2081.           $KSGPREPARESELECT $KSGPAUSESELECT $KSGSTOPSELECT $KSGIDLESELECT
  2082.           $KSGSTARTRECORDSELECT $KSGSTARTPREVIEWSELECT $KSGDISPOSECHANNELSELECT
  2083.           $KSGNEWCHANNELSELECT $KSGGETGWORLDSELECT $KSGSETGWORLDSELECT
  2084.           $KSGGETDATAOUTPUTSELECT $KSGSETDATAOUTPUTSELECT $KSGINITIALIZESELECT
  2085.           $DEVICECANTMEETREQUEST $SEQGRABINFONOTAVAILABLE $BADSGCHANNEL
  2086.           $COULDNTGETREQUIREDCOMPONENT $NOTENOUGHDISKSPACETOGRAB
  2087.           $NOTENOUGHMEMORYTOGRAB $CANTDOTHATINCURRENTMODE $GRABTIMECOMPLETE
  2088.           $NODEVICEFORCHANNEL $SGVIDEODIGITIZERTYPE $SGCVIDEORECTTYPE
  2089.           $SGCVIDEOFILTERTYPE $SGCVIDEOFORMATTYPE $SGCVIDEOINPUTTYPE
  2090.           $SGCVIDEOWHITELEVELTYPE $SGCVIDEOBLACKLEVELTYPE
  2091.           $SGCVIDEOBRIGTNESSTYPE $SGCVIDEOSHARPNESSTYPE $SGCVIDEOCONTRASTTYPE
  2092.           $SGCVIDEOSATURATIONTYPE $SGCVIDEOHUETYPE $SGCSOUNDGAINTYPE
  2093.           $SGCSOUNDINPUTTYPE $SGCSOUNDSAMPLESIZETYPE $SGCSOUNDCHANNELCOUNTTYPE
  2094.           $SGCSOUNDSAMPLERATETYPE $SGCSOUNDCOMPRESSIONTYPE $SGPANELSETTINGS
  2095.           $SGPANELDESCRIPTION $SGPANELSETTINGSATOM $SGVOLUMETYPE $SGMATRIXTYPE
  2096.           $SGCLIPTYPE $SGPLAYFLAGSTYPE $SGUSAGETYPE $SGDEVICENAMETYPE
  2097.           $SGCHANNELSETTINGS $SGCHANNELDESCRIPTION $SGCHANNELSETTINGSATOM
  2098.           $SGCHANNELATOM $CHANNELPLAYALLDATA $CHANNELPLAYHIGHQUALITY
  2099.           $CHANNELPLAYFAST $CHANNELPLAYNORMAL $SGPANELFLAGFORPANEL
  2100.           $CHANNELFLAGHASDEPENDENCY $CHANNELFLAGDONTOPENRESFILE
  2101.           $SEQGRABPAUSEFORMENU $SEQGRABPAUSE $SEQGRABUNPAUSE $SEQGRABWRITE
  2102.           $SEQGRABWRITERESERVE $SEQGRABWRITEAPPEND
  2103.           $SGDEVICELISTDONTCHECKAVAILABILITY $SGDEVICELISTWITHICONS
  2104.           $SGDEVICENAMEFLAGDEVICEUNAVAILABLE $SGFLAGCONTROLLEDGRAB
  2105.           $GRABPICTIGNORECLIP $GRABPICTOFFSCREEN $SEQGRABHASDISCRETESAMPLES
  2106.           $SEQGRABHASVOLUME $SEQGRABHASBOUNDS $SEQGRABPLAYDURINGRECORD
  2107.           $SEQGRABPREVIEW $SEQGRABRECORD $SEQGRABPREEXTENDFILE
  2108.           $SEQGRABDONTMAKEMOVIE $SEQGRABDONTADDMOVIERESOURCE
  2109.           $SEQGRABAPPENDTOFILE $SEQGRABUSETEMPMEMORY $SEQGRABTOMEMORY
  2110.           $SEQGRABTODISK $SEQGRABSOURCEPANELTYPE $SEQGRABCOMPRESSIONPANELTYPE
  2111.           $SEQGRABPANELTYPE $SEQGRABCHANNELTYPE $SEQGRABCOMPONENTTYPE
  2112.           $KCLOCKGETRATESELECT $KCLOCKSTARTSTOPCHANGEDSELECT
  2113.           $KCLOCKSETTIMEBASESELECT $KCLOCKTIMECHANGEDSELECT
  2114.           $KCLOCKRATECHANGEDSELECT $KCLOCKCANCELCALLBACKSELECT
  2115.           $KCLOCKCALLMEWHENSELECT $KCLOCKDISPOSECALLBACKSELECT
  2116.           $KCLOCKNEWCALLBACKSELECT $KCLOCKGETCLOCKTIMESELECT
  2117.           $KCLOCKIMPLEMENTSCALLBACKS $KCLOCKRATEISLINEAR
  2118.           $SYSTEMMICROSECONDCLOCK $SYSTEMMILLISECONDCLOCK $SYSTEMSECONDCLOCK
  2119.           $SYSTEMTICKCLOCK $CLOCKCOMPONENTTYPE))
  2120. (provide-interface 'QuickTimeComponents)